如何将R语言生成的24幅图像导出至单个PDF文件？

问题原因分析 #

你之前的代码无法生成PDF的核心问题：

• 第一个代码块仅索引了列表中的绘图对象，但未触发实际的绘图渲染操作，R在非交互式环境（如PDF设备）中需要显式调用print()来输出绘图对象。
• 第二个代码块误用了plyr包的d_ply函数：该函数用于处理数据框，而eemgraphs3是绘图对象列表；同时代码中引用的.z变量不存在，导致逻辑错误。

正确解决方案 #

假设eemgraphs3是包含24个绘图对象的列表（例如ggplot对象、用recordPlot()保存的基础绘图），使用以下代码即可将所有图像导出到单个PDF文件：

# 打开PDF输出设备，可根据图像尺寸调整width和height参数
pdf("eem_all_plots.pdf", width = 10, height = 8)

# 循环遍历列表中的每个绘图对象，逐个打印到PDF
for (plot_item in eemgraphs3) {
  print(plot_item)
}

# 关闭PDF设备，完成导出
dev.off()

额外优化（可选） #

如果希望在PDF的每页中排列多个图像（比如每页放2幅组合图），可以使用gridExtra包的grid.arrange()函数：

install.packages("gridExtra")
library(gridExtra)

pdf("eem_plots_grid.pdf", width = 12, height = 10)
# 每2个图像为一组，排列到同一页面
for (i in seq(1, length(eemgraphs3), by = 2)) {
  # 处理最后一组可能不足2个的情况
  plots_to_plot <- eemgraphs3[i:min(i+1, length(eemgraphs3))]
  do.call(grid.arrange, c(plots_to_plot, ncol = 2))
}
dev.off()

内容的提问来源于stack exchange，提问作者Robyn O'Halloran