R语言如何将列表存储的多个ggplot图表分页绘制输出

最推荐用patchwork包实现，逻辑最简单、排版容错率高，不需要手动处理底层grid布局的边距、对齐问题，完全适配你195个图、每页放13个的需求。

首先先提一句你原有代码的小问题：你现在循环里用grob(plot)把ggplot转成了grid对象存，其实没必要，直接存原生ggplot对象兼容性更好，当然现有存好的grob列表patchwork也能正常识别，不用重新跑循环生成。

方案1：直接导出多页PDF（最常用场景） #

直接生成可分享的规范多页PDF文件，代码可直接运行：

# 加载依赖，没装的先跑install.packages(c("patchwork", "ggplot2", "data.table"))
library(patchwork)
library(ggplot2)

# 配置分页参数
per_page <- 13
total <- length(sani_list)
page_num <- ceiling(total / per_page)

# 打开PDF输出设备，width和height根据你想要的页面尺寸调整
pdf("sani_multi_page.pdf", width = 12, height = 18)

for (i in seq_len(page_num)) {
  # 提取当前页要放的图
  idx_start <- (i - 1) * per_page + 1
  idx_end <- min(i * per_page, total)
  current_plots <- sani_list[idx_start:idx_end]
  
  # 排版：ncol/nrow可以自己调，比如4列4行刚好能放下13个图，剩余空位自动留空
  page <- wrap_plots(current_plots, ncol = 4, nrow = 4) +
    plot_annotation(title = paste0("第", i, "页 / 共", page_num, "页"))
  print(page)
}

# 关闭设备，完成文件生成
dev.off()

如果需要统一收集所有图的图例、减少冗余，给wrap_plots加参数guides = "collect"就行，会自动把同映射的图例合并到页面侧边。

方案2：RStudio内逐页预览 #

如果不想直接导出文件，想先预览效果，不用开PDF设备，直接在循环里输出即可，加个交互暂停避免一次性刷完所有图：

per_page <- 13
total <- length(sani_list)
page_num <- ceiling(total / per_page)

for (i in seq_len(page_num)) {
  idx_start <- (i - 1) * per_page + 1
  idx_end <- min(i * per_page, total)
  current_plots <- sani_list[idx_start:idx_end]
  
  page <- wrap_plots(current_plots, ncol = 4)
  print(page)
  
  if (i < page_num) {
    readline(prompt = "按回车键查看下一页")
  }
}

注意事项 #

• 你原代码里有两个容易报错的小问题：
  • 读文件的路径拼接引号没闭合：fread(paste0("file_directory,file))要改成fread(paste0("file_directory/", file))
  • 新版ggplot2里aes_string已经软废弃，而且映射里写df$列名容易出图例异常，建议改成ggplot(df, aes(x = .data[[i]], y = incidence, color = sex_id))的标准写法
• 不推荐用旧的gridExtra::grid.arrange方案：处理多页需要手动写grob嵌套逻辑，统一图例、调图间距非常麻烦，图量多的时候很容易出现边距错位、标签截断的问题。
• 如果需要导出到Word/PPT，只需要把循环里拼好的page对象用ggsave存成临时png，再用officer包插入到对应文档页即可，分页逻辑完全不用改。

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