r - 如何在 R 中使用布局调整行宽

Question

我有 8 个图，我想将它们全部绘制在一页上。每个图都是使用基础图形制作的，我宁愿坚持使用它而不是使用 lattice 或 ggplot。

下面的方案是一个页面，其中每个数字表示哪个图 # 占据了该页面的比例。有什么方法可以用 layout 或任何其他基本函数来做到这一点吗？

1111122
3333444
5556666
7788888

我目前的一些代码:

pdf("test.pdf",height=30,width=10)
widths = c(5/7,2/7,4/7,3/7,3/7,4/7,2/7 5/7) # this doesn't work

x=layout(matrix(1:8,nrow=4,ncol=2,byrow=T), widths=widths,
         heights=rep(1/4,4))

for (ix in 1:4){        

    plot(rnorm(100))  
    plot(rnorm(100))
}
dev.off()

Answer 1

您可以为布局指定矩阵并使用layout 函数。

mat <- t(sapply(1:4, function(x) 
                       rep.int(c((x - 1) * 2 + 1, (x - 1) * 2 + 2), c(6 - x, 1 + x))))
#      [,1] [,2] [,3] [,4] [,5] [,6] [,7]
# [1,]    1    1    1    1    1    2    2
# [2,]    3    3    3    3    4    4    4
# [3,]    5    5    5    6    6    6    6
# [4,]    7    7    8    8    8    8    8

layout(mat)

for (i in 1:8) {
  plot(rnorm(10))
}

如果相同的数字在布局矩阵中重复出现，则绘图使用与该数字对应的空间。