我在一个情节里做一个情节.
(为了简单起见，我在这里使用curve()，但这里也指plot().)
curve(exp(x), 0, 1, col=4)
.op <- par(
fig=c(grconvertX(c(.05, .4), to='ndc'),
grconvertY(c(2, 2.75), to='ndc')),
mar=c(1, 1, 1, 1),
new=TRUE
)
curve(sin(x), 0, 2*pi)
par(.op)
在for个循环中重复这一点基本上效果很好.然而，当我try 使用2x2 layout时，图形分布在四个不同的图形上，而不是显示在一个图形上.
layout(matrix(1:4, 2, 2))
for (i in 1:4) {
curve(exp(x), 0, 1, col=4)
.op <- par(
fig=c(grconvertX(c(.05, .3), to='ndc'),
grconvertY(c(2, 2.75), to='ndc')),
mar=c(1, 1, 1, 1),
new=TRUE
)
curve(sin(x), 0, 2*pi)
par(.op)
}
出于某种原因，内在的par会扰乱外部的.我也try 了op <- par(mfrow=); ... par(op)而不是layout，但结果是一样的.
我怎么才能解决这个问题呢？
