Jak zatrzymać okno urządzenia graficznego obcinające krawędzie wykresu()?

Question

Mam działkę mfrow=c(6,4) i szczególną sytuację, w której chcę, aby każdy dział był mar=c(1,1,1,1). To sprawia, że ​​x-axis i xlab z 4 dolnych wykresów zostają odcięte (nawet podczas eksportowania do .eps).

Jak to zrobić, aby zatrzymać R? Próbowałem robić postscript("test.eps",height=N) gdzie N jest prawdziwą liczbą, która jest większa niż domyślna. To sprawia, że ​​dużo białego miejsca na górze i dole .eps, ale x-axis jest nadal odcięty.

Moje pytanie brzmi; jak mogę uzyskać plot(), aby przestać odciąć moje x-axis i xlab biorąc pod uwagę ograniczenie, które chcę opisać powyżej? (Wyglądam chyba na jakiś sposób, żeby dno urządzenia było większe, tak, że to, czego chcę, nie zostało odcięte?).

Oto moje działki:

postscript("test.eps") 
y <- rnorm(100) 
x <- rnorm(100) 

par(mfrow=c(6,4),mar=c(1,1,1,1)) 

for(i in 1:((6*4))) 
{ 
    if(i <= (6*4)-4) 
    { 
    plot(y,x,xlab="",xaxt="n") 
    } 
    if(i > (6*4)-4) 
    { 
    plot(y,x,xlab="HELLO") 
    } 
} 
dev.off() 

Answer 1

Proponuję dodać zewnętrzną margines (oma), aby nie przyciąć etykiety kleszczy i wykreślić osi etykietę z mtext dostać to bliżej niż do standardowej pozycji.

postscript("test.eps") 
y <- rnorm(100) 
x <- rnorm(100) 

par(mfrow=c(6,4),mar=c(1,1,1,1), oma=c(3,1,0,0)) 

for(i in 1:((6*4))) 
{ 
    if(i <= (6*4)-4) 
    { 
    plot(y,x,xlab="",xaxt="n") 
    } 
    if(i > (6*4)-4) 
    { 
    plot(y,x,xlab="") 
    mtext("HELLO", 1, 2.5) 
    } 
} 
dev.off()