如何停止圖形設備窗口切斷plot（）的邊緣？

Question

我有一個mfrow=c(6,4)情節和一個特殊情況，我希望每個情節都是mar=c(1,1,1,1) 。 這使得底部4個圖形的x-axis和xlab被切斷（即使在導出為.eps ）。

我怎么阻止R這樣做？ 我試過做postscript("test.eps",height=N) ，其中N是一些大於默認值的實數。 這會在.eps的頂部和底部產生大量空白區域，但x-axis仍然被切斷。

所以我的問題是; 我如何讓plot()停止切斷我的x-axis和xlab ，因為我想要上面描述的mfrow和mar的約束？ （我正在尋找一些方法來使設備的底部更大，以便我想要的東西不被切斷？）。

這是我的情節：

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

我建議你添加一個外邊距（ oma ）來不剪切刻度標簽，並用mtext繪制軸標簽，使其比默認位置更近。

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()