如何强制facet_wrap使用指定列数以实现分面图对齐？

要让两个分面图合并后分面对齐，核心是让第二个图的分面布局强制匹配第一个图的列数（即使分面数量不足），以下是两种可行方案：

方法一：扩展分面变量水平，保留空分面位置 #

通过给分面变量添加一个不存在的水平，让facet_wrap生成指定列数的分面框架，再隐藏空分面的标签：

library(ggplot2)
library(gridExtra)

# 数据预处理
ToothGrowth$dose <- as.factor(ToothGrowth$dose)
df <- ToothGrowth

# 基础箱线图
bp <- ggplot(df, aes(x=dose, y=len, group=dose)) + 
  geom_boxplot(aes(fill=dose))

# 第一个图：3个分面（ncol=3）
a <- bp + facet_wrap(~ dose, ncol=3)

# 扩展supp变量的因子水平，添加一个空水平
df$supp_extended <- factor(df$supp, levels = c("OJ", "VC", "dummy"))

# 第二个图：强制生成3列分面，drop=FALSE保留空水平的分面
b <- ggplot(df, aes(x=dose, y=len, group=dose)) + 
  geom_boxplot(aes(fill=dose)) +
  facet_wrap(~ supp_extended, ncol=3, drop=FALSE) +
  # 隐藏空分面的标签
  theme(strip.text.x = element_text(
    color = ifelse(levels(df$supp_extended) == "dummy", "transparent", "black")
  ))

# 合并两个图
grid.arrange(a, b, nrow=2)

方法二：使用patchwork包精准控制布局 #

patchwork包能更灵活地对齐子图的面板网格，无需修改数据：

library(ggplot2)
library(patchwork)

# 数据与基础图同前
ToothGrowth$dose <- as.factor(ToothGrowth$dose)
df <- ToothGrowth
bp <- ggplot(df, aes(x=dose, y=len, group=dose)) + geom_boxplot(aes(fill=dose))

a <- bp + facet_wrap(~ dose, ncol=3)
b <- bp + facet_wrap(~ supp, ncol=3)

# 垂直合并并强制对齐面板
a / b + plot_layout(
  guides = "collect",  # 合并重复图例
  axes = "collect"     # 对齐坐标轴
)

两种方法都能实现你需要的分面对齐效果，方法一更直观，方法二更简洁。

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