如何将ggplot2多面分面图按每页6个（2×3）打印到PDF多页

嘿，我来帮你搞定这个分面图太拥挤的问题！你现在生成了15-20幅分面图，想按每页A4纸2×3网格（6幅）打印成多页PDF，这里有两个实用的方法，一步步来：

ggforce包的facet_wrap_paginate专门解决多页分面的需求，不需要手动拆分数据，直接帮你把分面图按指定行列分页：

1. 先安装并加载ggforce：

install.packages("ggforce")
library(ggforce)

2. 修改你的ggplot代码，替换分面函数并设置分页参数：
   先算好总页数（比如18幅图就是3页），然后用循环生成每页的图：

# 计算总分面数和总页数
total_facets <- length(unique(Data_Backs$Player.Name)) * length(unique(Data_Backs$Position))
total_pages <- ceiling(total_facets / 6) # 每页6幅，向上取整

# 生成每页的图对象
page_plots <- lapply(1:total_pages, function(page_num) {
  Data_Backs %>%
    ggplot(aes(x=Period, y=M_Min, colour = Day_Week)) +
    geom_point(alpha = .3, size = 2) +
    geom_line(aes(group=`Day Name`)) +
    geom_hline(yintercept = 120, show.legend = TRUE) +
    facet_wrap_paginate(Position~Player.Name, nrow=2, ncol=3, page = page_num) +
    geom_smooth() +
    theme(plot.title = element_text(size=.1)) +
    theme_bw() # 可选，让图更清爽不拥挤
})

3. 输出到A4尺寸的PDF：

# A4纸的英寸尺寸是宽8.27，高11.69，也可以用厘米（units="cm"，width=21, height=29.7）
pdf("faceted_plots.pdf", width = 8.27, height = 11.69)
print(page_plots)
dev.off()

如果你想对每个页面的图做个性化调整（比如单独改某个子图的标题），可以用patchwork包手动组合子图：

1. 安装加载patchwork：

install.packages("patchwork")
library(patchwork)

2. 先生成每个分面对应的独立子图，再按每页6个分组：

# 按Position和Player.Name分组，生成单个子图
single_plots <- Data_Backs %>%
  group_by(Position, Player.Name) %>%
  group_map(function(sub_data, group_keys) {
    ggplot(sub_data, aes(x=Period, y=M_Min, colour = Day_Week)) +
      geom_point(alpha = .3, size = 2) +
      geom_line(aes(group=`Day Name`)) +
      geom_hline(yintercept = 120, show.legend = TRUE) +
      geom_smooth() +
      labs(title = paste(group_keys$Position, group_keys$Player.Name, sep = " - ")) +
      theme_bw() +
      theme(axis.text = element_text(size=8), legend.text = element_text(size=8)) # 缩小文字避免拥挤
  })

# 把子图列表拆分成每页6个的分组
page_groups <- split(single_plots, ceiling(seq_along(single_plots)/6))

3. 组合每页的图并输出PDF：

pdf("faceted_plots_patchwork.pdf", width = 8.27, height = 11.69)
for(each_page in page_groups) {
  # 用wrap_plots按2×3网格组合
  print(wrap_plots(each_page, nrow=2, ncol=3))
}
dev.off()

小提示 #

• 如果页面还是有点挤，可以再调整theme里的元素大小，比如缩小坐标轴标题、图例标题的字号
• 要是geom_hline的图例显示异常，可以手动用scale_linetype_manual定义水平线的图例样式，让它更清晰

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