在同一窗口上绘制不同大小的多个帧

Question

考虑这个例子：

par(mfrow=c(2,3))
frame()
image(matrix(1:100, nrow=100), main="my wide plot", axes=FALSE)
frame()
plot(rnorm(120), rnorm(120), main="plot 1")
plot(dpois(0:20, lambda=6), type="b", main="plot 2")
x = rnorm(100)
y = x+runif(100, 10, 12)
plot(x=x, y=y, , main="plot 3")

如何使我的第一张图（image(...)标题为my wide plot）占据窗口顶部的3帧？

Answer 1

一种简单的方法是使用layout()：

layout(mat=matrix(c(1,1,1,2,3,4), ncol=3, byrow=TRUE))

image(matrix(1:100, nrow=100), main="my wide plot", axes=FALSE)    
plot(rnorm(120), rnorm(120), main="plot 1")
plot(dpois(0:20, lambda=6), type="b", , main="plot 2")
x = rnorm(100)
y = x+runif(100, 10, 12)
plot(x=x, y=y, main="plot 3")

（有关更复杂布局的一个很好的例子，see here。）