R：如何增加grid.arrange的高度

Question

在制作不平衡的地块网格时，有没有办法增加绘图空间。请参阅下文，其中最大面积未使用。

library(gridExtra) 
p <- ggplot(data = mtcars)+geom_point(aes(x=mpg,y=mpg))
grid.arrange(p, arrangeGrob(p,p,
                       p,p, 
                       heights = c(1/1.5,1/1.5),nrow=2),
         nrow=3,heights=c(1,1.2,1.2))

Answer 1

使用patchwork包

的解决方案

library(ggplot2)
library(patchwork)

p <- ggplot(data = mtcars) + geom_point(aes(x = mpg, y = mpg))

p / {
   p + {p} + plot_layout(ncol = 2)
 } / {
   p + {p} + plot_layout(ncol = 2)
 } + 
 plot_layout(nrow = 3, widths = c(1, 1.2, 1.2))

由reprex package（v0.2.0）创建于2018-03-09。

Answer 2

grid.arrange(p,p,p,p,p, layout_matrix = matrix(c(1,1:5), ncol=2, byrow=TRUE))