在R中高效保存多页图表的最优方法探讨

你当前通过临时单页PDF合并的方式已经具备不错的效率，但确实存在直接从图表列表生成多页PDF的方案，可省去临时文件的IO开销，以下是两种实用方法：

方法1：基础R PDF设备直接批量打印 #

这是最轻量的方案，无需额外依赖（仅保留ggplot2相关包），通过一次性打开PDF设备，批量写入所有图表，避免反复打开/关闭设备的开销：

library(ggplot2)
library(dplyr)
library(purrr)

# 生成数据与图表列表（复用你的逻辑）
a <- 2e3
b <- 1e3

dt <- data.frame(
  id = rep(1:a, each = b),
  x = runif(a*b),
  y = runif(a*b)
)

plot_graph <- function(dt) {
  dt |> ggplot(aes(x = x, y = y)) +
    geom_point()
}

list_plots <- dt |> 
  split(f = "id") |> 
  purrr::map(plot_graph)

# 直接生成多页PDF
pdf("output.pdf", width = 15, height = 8)
# 循环打印所有图表至已打开的PDF设备
purrr::walk(list_plots, print)
# 关闭PDF设备
dev.off()

注：图表生成阶段仍可保留furrr并行加速，仅打印阶段需串行（PDF设备不支持并行写入）。

方法2：使用gridExtra批量排版生成 #

gridExtra::marrangeGrob专为多页图表排版设计，可直接将ggplot列表转换为多页PDF，支持自定义每页图表数量（此处设为每页1个）：

library(ggplot2)
library(dplyr)
library(purrr)
library(gridExtra)

# 复用数据与图表列表生成逻辑...

# 生成多页排版对象
multi_page_plots <- marrangeGrob(
  grobs = list_plots,
  ncol = 1, nrow = 1, # 每页1个图表
  top = NULL, # 移除默认页码标题，如需保留可删除此参数
  width = 15, height = 8
)

# 导出为PDF
ggsave("output.pdf", plot = multi_page_plots, device = "pdf")

关于效率的补充说明 #

• 你原方案的核心优势在于并行生成单页PDF+快速合并，qpdf的合并操作是底层级别的，速度极快，若临时文件的管理不构成负担，该方案仍可继续使用。
• 你提到ggsave速度慢，本质是因为循环调用ggsave时，每次都要打开/关闭PDF设备，带来大量重复开销；而上述两种方案均为一次性打开设备批量写入，效率会显著提升。

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