如何用for循环处理非整页倍数的多页绘图排版及PDF生成问题

一、优雅处理非整数倍的多页排版 #

你原来的循环报错，是因为最后一次迭代（i=5）时，plots[[i+3]]会访问第8个元素，超出了列表长度（仅6张图）。不用手动拆分两次循环，直接给绘图列表分组即可：

library(gridExtra)
# 假设plots是包含6个ggplot对象的列表
n_per_page <- 4
# 生成分组标记，把6张图自动拆成两组（4+2）
groups <- ceiling(seq_along(plots) / n_per_page)
plot_groups <- split(plots, groups)

# 循环每组输出，自动适配最后一组的图数量
for (grp in plot_groups) {
  grid.arrange(grobs = grp, ncol = 2, nrow = 2)
}

这里split会自动按每页数量拆分列表，最后一组即使只有2张图，grid.arrange也能正常排版，不会报错。如果用patchwork的wrap_plots，逻辑完全一致：

library(patchwork)
for (grp in plot_groups) {
  print(wrap_plots(grp, ncol = 2, nrow = 2))
}

二、解决wrap_plots/ggarrange生成多页PDF的问题 #

生成的PDF不可用，大概率是因为没正确管理图形设备，或者没在循环中显式输出绘图对象。下面给两种靠谱的解决方法：

方法1：用基础PDF设备逐页输出 #

这是通用方案，适用于grid.arrange、wrap_plots和ggarrange：

# 打开PDF文件，设置画布尺寸
pdf("multi_page_plots.pdf", width = 8, height = 6)

# 循环输出每组图，按需选择工具：
for (grp in plot_groups) {
  # grid.arrange版本
  grid.arrange(grobs = grp, ncol = 2, nrow = 2)
  # wrap_plots版本（必须加print）
  # print(wrap_plots(grp, ncol = 2, nrow = 2))
  # ggarrange版本（必须加print）
  # print(ggarrange(plotlist = grp, ncol = 2, nrow = 2))
}

# 必须关闭设备，否则PDF会损坏无法打开
dev.off()

注意：wrap_plots和ggarrange返回的是绘图对象，循环中必须用print()显式输出，否则不会写入PDF。最后一步dev.off()绝对不能省略。

方法2：用patchwork一键生成多页PDF #

如果用patchwork，可以不用手动分组，直接让它自动计算分页：

library(patchwork)
# 直接传入所有图，设置每页布局
multi_plot <- wrap_plots(plots, ncol = 2, nrow = 2)
# 保存为多页PDF
ggsave("multi_page_plots.pdf", multi_plot, width = 8, height = 6)

这个方法最简洁，patchwork会自动把6张图分成两页（4+2），直接生成可用的多页PDF文件。

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