如何通过gridExtra传入图形列表，在网格中绘制ggplot2多图？

你说得对，grid.arrange默认要求逐个传入图形对象，但其实用do.call()就能轻松解决这个问题——它可以帮你把列表里的元素拆成函数的单独参数传递进去，完美适配批量传图的需求！

具体操作示例： #

1. 先创建示例ggplot图形并放入列表

library(ggplot2)
library(gridExtra)

# 生成几个示例图形
plot1 <- ggplot(mtcars, aes(x=mpg, y=hp)) + geom_point()
plot2 <- ggplot(mtcars, aes(x=factor(cyl))) + geom_bar()
plot3 <- ggplot(mtcars, aes(x=wt, y=qsec)) + geom_line()

# 将图形存入列表
myList <- list(plot1, plot2, plot3)

2. 用do.call调用grid.arrange
   只需要把grid.arrange作为第一个参数，你的图形列表作为第二个参数传入do.call即可：

do.call(grid.arrange, myList)

3. 添加布局调整参数（可选）
   如果想要设置行列数、图形间距这类布局参数，可以把这些参数和图形列表合并后一起传入：

# 设为2列布局，同时调整图形间的内边距
do.call(grid.arrange, c(myList, ncol=2, padding=0.5))

补充实用小技巧 #

如果后续需要对组合后的图形做保存等操作，可以先用arrangeGrob()生成一个grob对象，再进行后续操作：

# 创建组合图形对象
combined_plot <- do.call(arrangeGrob, c(myList, nrow=2))
# 绘制图形
grid.draw(combined_plot)
# 保存到本地
ggsave("combined_plots.png", combined_plot)

内容的提问来源于stack exchange，提问作者Gilgamesh