将多个ggplot保存至多页PDF（每页可放多图）的问题与报错解决问询

问题原因 #

1. 运行marrangeGrob报错是gridExtra包和新版ggplot2的兼容性问题，旧版marrangeGrob无法适配新版ggplot2生成的绘图对象结构。
2. 原生pdf循环打印图表不满页，是因为没有调整绘图边距和页面布局参数。
3. 注意你代码里的笔误：前面定义的绘图列表是plots.list，循环里写的plot.list少了s，运行时也会报错。

解决方案 #

方案1：用patchwork包实现（最推荐，布局控制简单） #

patchwork是ggplot2官方推荐的多图排版包，语法简单，也能轻松适配多页PDF输出，完美满足你每页3张图、占满页面的需求。
先安装包（如果没装的话）：

install.packages("patchwork")

实现代码：

library(ggplot2)
library(patchwork)

# 你的测试数据和绘图代码
df = data.frame(x = seq(1:30), y = rnorm(30), z = runif(30, 1, 10))
p.1 = ggplot(df, aes(x = x, y = y)) + geom_point()
p.2 = ggplot(df, aes(x = x, y = z)) + geom_point()
p.3 = ggplot(df, aes(x = y, y = z)) + geom_point()
p.4 = ggplot(df, aes(x = y)) + geom_histogram()
plots.list = list(p.1, p.2, p.3, p.4)

# 按每页3张图拆分列表，生成多页布局
per_page <- 3
pages <- split(plots.list, ceiling(seq_along(plots.list)/per_page))

# 生成PDF，A4横版，调整边距让图占满页面
pdf("species_dashboard.pdf", paper = "a4r", width = 11.7, height = 8.3)
for (page in pages) {
  # 竖向排列3张图，调整上下边距
  layout <- wrap_plots(page, ncol = 1, nrow = 3) & 
    theme(plot.margin = unit(c(0.2, 0.2, 0.2, 0.2), "cm"))
  print(layout)
}
dev.off()

方案2：修复marrangeGrob的兼容性问题 #

如果要沿用原来的参考方案，需要给marrangeGrob明确指定grobs参数，避免参数传递错误：

library(gridExtra)
library(ggplot2)

# 调整参数传递方式，明确指定grobs参数，nrow设为3满足每页3张图的需求
plots <- marrangeGrob(grobs = plots.list, nrow = 3, ncol = 1)
# 保存为横版A4尺寸PDF
ggsave("multipage_plot.pdf", plots, width = 29.7, height = 21, units = "cm")

方案3：优化原生PDF循环方案 #

如果不想依赖额外排版包，只需要调整ggplot的全局边距参数，就能让图占满页面：

pdf("myname.pdf", paper="a4r")
# 全局调整绘图边距，减少留白
theme_set(theme_bw() + theme(plot.margin = unit(c(0.3,0.3,0.3,0.3), "cm")))
for (i in 1:length(plots.list)){
  # 每3张图换一页，每张图占1/3页面高度
  if(i %% 3 == 1) par(mfrow = c(3,1))
  print(plots.list[[i]])
}
dev.off()

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