R语言中如何简化ggarrange函数的批量绘图对象输入？

不用逐个输入plot_1到plot_96，可以通过批量收集绘图对象到列表的方式简化操作，以下是具体实现：

方法1：收集已命名的plot对象 #

如果你已经生成了plot_1至plot_96这些单独的绘图对象，用mget()函数批量将它们存入列表：

# 批量收集所有plot对象到列表
plot_list <- mget(paste0("plot_", 1:96))

# 用ggarrange组合成8行12列
combined_plot <- ggarrange(plotlist = plot_list,
                          nrow = 8,
                          ncol = 12,
                          # 可选：统一图例（如果所有图用相同图例）
                          common.legend = TRUE,
                          legend = "bottom")

方法2：生成绘图时直接存入列表（更推荐） #

如果还没生成所有绘图，建议直接在循环生成时存入列表，避免逐个命名plot_1到plot_96：

# 初始化空列表
plot_list <- list()

# 循环生成绘图并添加到列表
for (i in 1:96) {
  # 替换为你的实际绘图代码，示例用ggplot2
  p <- ggplot(your_data, aes(x = x_col, y = y_col)) +
    geom_line() +
    labs(title = paste("Plot", i))
  plot_list[[i]] <- p
}

# 组合绘图
combined_plot <- ggarrange(plotlist = plot_list, nrow = 8, ncol = 12)

替代方案：用patchwork包（适用于ggplot2绘图） #

如果你的绘图都是ggplot2对象，patchwork包的wrap_plots()函数更简洁：

library(patchwork)

# 组合绘图
combined_plot <- wrap_plots(plot_list, nrow = 8, ncol = 12)

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