r - 在多图中设置 mfg 可防止在边距上绘制

Question

我试图通过将公共(public)轴放在外边距中来将它们添加到一堆绘图中。首先在循环中绘制图(不是在示例中)，然后我想在两行图的底部绘制轴。

但是只有在不更改 mfg 的情况下才能在绘图区域外绘制轴。如何在更改 mfg 后启用绘图外绘图？

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

#Some plots
plot(function(x)x^2,from=-1,to=2,  frame.plot=T,axes=F)
plot(function(x)x^3,from=-2,to=2,  frame.plot=T,axes=F)
plot(rnorm(10),  frame.plot=T,axes=F)
plot(1:10,       frame.plot=T,axes=F)
# axis on last drawn plot (mfg=c(2,2)) - works
axis(side=1,line=0,outer=TRUE)

# set mfg to same value (mfg=c(2,2))
par(mfg=c(2,2))

# red axis is clipped to plot region, even with xpd?
axis(side=1,line=-.2,outer=FALSE,xpd=NA,col="red")
par(mfg=c(2,1))
axis(side=1,line=-.2,outer=FALSE,xpd=NA,col="red")

Answer 1

你可以设置:

par(xpd=NA)

确保轴没有被剪裁到绘图区域。