如何将ggforce分页分面绘图结果保存为单个PDF文件？

其实根本不需要先生成多个PDF再合并，用R内置的pdf()设备就能一步到位生成包含所有页面的单个PDF文件，这是最直接的方式，不需要额外依赖其他包。

修改后的代码： #

library(ggforce)

# 打开单文件PDF设备，指定输出路径
pdf("~/diamonds_combined.pdf", onefile = TRUE)
for(i in 1:6){
  # 生成当前页面的绘图
  p <- ggplot(diamonds) + 
    geom_point(aes(carat, price), alpha = 0.1) + 
    facet_wrap_paginate(~cut:clarity, ncol = 2, nrow = 2, page = i)
  print(p)  # 必须打印绘图对象，否则不会写入PDF设备
}
dev.off()  # 关闭设备，完成PDF文件的写入

关键说明： #

• pdf("路径", onefile = TRUE)会创建一个支持多页的PDF文件，所有后续的绘图都会被添加为新页面。
• 循环里必须用print(p)输出绘图对象——ggplot对象在脚本里不会自动渲染，必须显式打印才能写入PDF设备。
• 最后调用dev.off()关闭设备，确保所有内容都被写入文件。

如果已经生成了多个PDF，备选合并方法 #

如果你已经有了之前生成的6个单独PDF文件，用pdftools包合并也是很简洁的：

library(pdftools)
pdf_combine(input = paste0("~/diamonds_", 1:6, ".pdf"), output = "~/diamonds_combined.pdf")

但显然，直接在绘图阶段就写入同一个PDF是更高效的，避免生成临时文件。

关于ggforce的功能补充 #

ggforce的分页函数（facet_wrap_paginate/facet_grid_paginate）只负责拆分绘图内容到不同页面，而PDF的生成/合并属于R基础绘图设备的范畴，所以ggforce本身不需要单独提供这个功能——用R内置的设备系统就能完美配合实现单PDF输出。

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