如何用for循环将300幅ggplot2图按2×2排版保存为PDF

刚好我之前处理过类似的批量绘图保存需求，给你两种实用的实现方法，都能轻松搞定300张图按2×2布局分页存成PDF的需求：

这个方法适合习惯基础网格布局的场景，通过循环分组来逐页绘制：

首先确保你已经安装并加载了所需的包：

library(ggplot2)
library(gridExtra)

然后执行以下代码生成PDF：

# 打开PDF输出设备，可根据需求调整宽高（单位是英寸）
pdf("2x2_plots_gridExtra.pdf", width = 10, height = 8)

# 循环处理每一页，每页4张图
for (page_num in 1:75) {
  # 计算当前页对应的图索引范围
  start_pos <- (page_num - 1) * 4 + 1
  end_pos <- page_num * 4
  # 提取当前页的4张图
  current_page_plots <- plot_list[start_pos:end_pos]
  # 以2行2列的布局绘制当前页的图
  grid.arrange(grobs = current_page_plots, ncol = 2, nrow = 2)
}

# 关闭PDF设备，完成保存
dev.off()

patchwork是ggplot2生态里专门用来组合图形的工具，语法更简洁，会自动帮你分页：

先安装并加载包：

library(ggplot2)
library(patchwork)

然后一行核心代码就能搞定：

ggsave(
  filename = "2x2_plots_patchwork.pdf",
  plot = wrap_plots(plot_list, ncol = 2, nrow = 2),
  width = 10,
  height = 8,
  limitsize = FALSE  # 关闭默认尺寸限制，避免因图数量多报错
)

一些实用小贴士： #

• 可以根据你的图的内容调整width和height参数，确保图中的文字、坐标轴不会被压缩得看不清；
• 如果你的图风格不统一，可以在创建plot_list时统一添加主题（比如+ theme_bw()），让输出的PDF更美观；
• 因为300张图刚好是4的倍数，两种方法都不需要处理最后一页不足4张的情况，如果后续图数量变化，可以在循环里加个判断（比如end_pos <- min(page_num * 4, length(plot_list))）。

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