R ggplot2 facet_wrap如何实现不同行设置不同分面列数

ggplot2默认的分面函数facet_wrap()/facet_grid()仅支持等列数的均匀排布，要实现第一行4个分面、第二/三行各5个分面的效果，优先用patchwork包做手动拼版，操作最简单、效果可控性最高。

推荐方案：patchwork 自定义布局 #

patchwork可以直接通过布局文本定义每行的分面数量，自动适配行宽对齐，不需要手动计算尺寸比例，还能保留原生分面统一图例、统一坐标标尺的特性。

1. 先安装依赖包（已安装可跳过）

   install.packages(c("ggplot2", "patchwork"))
   

2. 完整可复现代码

   library(ggplot2)
   library(patchwork)
   
   # --------------- 替换成你自己的数据集和绘图逻辑即可 ---------------
   # 构造示例测试数据
   set.seed(123)
   df <- data.frame(
     group = factor(paste0("分组", 1:14), levels = paste0("分组", 1:14)),
     x_val = rnorm(1400),
     y_val = rnorm(1400)
   )
   
   # 批量生成14个分面对应的子图，存入列表
   plot_list <- lapply(levels(df$group), function(g){
     ggplot(subset(df, group == g), aes(x = x_val, y = y_val)) +
       geom_point(size = 1, alpha = 0.7) +
       labs(title = g) +
       theme_bw(base_size = 10)
   })
   # -----------------------------------------------------------------
   
   # 定义3行布局：第一行4个分面，第二、三行各5个分面
   my_layout <- "
   1234
   56789
   ABCDE
   "
   
   # 组合图片
   final_plot <- wrap_plots(plot_list, design = my_layout) +
     plot_layout(guides = "collect") # 统一收集图例，和原生分面效果一致
   
   # 查看/导出结果
   final_plot
   

运行后输出的排版和参考效果完全一致：

常见调整 #

• 要修改分面间距：在plot_layout()里加heights/widths参数控制尺寸，加& theme(plot.margin = margin(2,2,2,2))统一调整边距
• 要加全局标题、全局坐标标签：用plot_annotation()函数设置即可
• 要让所有分面坐标范围统一：生成子图时在ggplot里加coord_cartesian(xlim = c(...), ylim = c(...))固定坐标范围即可

不推荐方案：修改原生facet布局矩阵 #

如果坚持要用facet_wrap()实现，需要手动构造布局矩阵，把第一行的第5个位置设为缺失值强制留空，这种方法会产生多余空白，需要反复调整主题参数消去空白，适配成本很高，没有特殊需求不建议使用。

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