求助：如何使用facet_wrap_paginate生成多页PDF及解决无输出问题

核心问题分析 #

你当前的新代码存在两个关键问题：

1. 缺少分页保存逻辑：facet_wrap_paginate默认仅生成第1页图表，且你未添加任何文件保存代码（原代码的ggsave被删除）。
2. 存在语法错误：ggplot(aes(x, y) + 遗漏了数据框参数和闭合括号，正确写法应为ggplot(你的数据框名, aes(x, y)) +。

完整解决方案代码 #

# 加载依赖包（facet_wrap_paginate属于ggforce包，必须加载）
library(ggplot2)
library(ggforce)

# 假设数据存储在名为df的数据框中，替换为你的实际数据框名
Draft_base <- ggplot(df, aes(x, y)) + 
  geom_boxplot()

# 设置每页显示的分面行列数，可按需调整
per_page_cols <- 2
per_page_rows <- 2

# 计算分面后的总页数
total_pages <- n_pages(
  Draft_base + facet_wrap_paginate(~ chemical, ncol = per_page_cols, nrow = per_page_rows)
)

# 生成多页PDF
pdf("./Draft_multipage.pdf", width = 15, height = 10, units = "cm")
for (page_num in 1:total_pages) {
  # 生成对应页码的图表并写入PDF
  print(
    Draft_base + 
      facet_wrap_paginate(
        ~ chemical, 
        ncol = per_page_cols, 
        nrow = per_page_rows, 
        page = page_num
      )
  )
}
# 关闭PDF设备，完成文件写入
dev.off()

关键说明 #

• 必须指定page参数：通过循环遍历所有页码，才能生成每一页的分面图表。
• 使用pdf()设备：这是R生成多页PDF的标准方式，循环中用print()将每页图表写入PDF流，最后dev.off()确保文件被正确保存到指定路径。
• 灵活调整分面数量：通过ncol和nrow设置每页显示的分面个数，适配你的数据量和图表布局需求。

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