如何使用arrangeGrob控制行之间的填充？

使用

gridextra

和

ggplot2

时，如何控制行之间的填充？我看到最后一幅图的两行之间有很大的差距。即使在使用padding参数以获得最小

p1 <- ...
p2 <- ...
p3 <- ...
final <- gridExtra::arrangeGrob(p1, p2, p3, layout_matrix = rbind(c(1,2), c(3,3)), heights=c(3,7), 
                                padding = unit(0.1, "line"))
ggplot2::ggsave(filename=output.file,plot=final,width=18,height=9)

---

p1padding

参数用于注释（标题等）。绘图间距应根据绘图边距进行调整

pl <- replicate(3, ggplot(), FALSE)

pl <- lapply(pl, function(p) p + theme(plot.margin = margin(t=50, l=50)))

gridExtra::grid.arrange(grobs = pl, layout_matrix = rbind(c(1,2), c(3,3)), heights=c(3,7))

---

plpadding

参数用于注释（标题等）。绘图间距应根据绘图边距进行调整

pl <- replicate(3, ggplot(), FALSE)

pl <- lapply(pl, function(p) p + theme(plot.margin = margin(t=50, l=50)))

gridExtra::grid.arrange(grobs = pl, layout_matrix = rbind(c(1,2), c(3,3)), heights=c(3,7))

pl