r - 如何停止图形设备窗口切断绘图（）的边缘？

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