ggplot分面下X轴扩展间距不一致问题求解

我有一组需要用ggplot2展示的数据集，包含多个分组（示例共5组），每组的子分组数量不等。

模拟数据代码 #

# 固定随机种子保证结果可复现
set.seed(1)

# 加载包
library(dplyr)
library(ggplot2)

# 构造数据
data.frame(
  group = c("group A",
            rep("group B", 2),
            rep("group C", 3),
            rep("group D", 4),
            rep("group E", 5)),
  subgroup = c("a",
               "a", "b",
               "a", "b", "c",
               "a", "b", "c", "d",
               "a", "b", "c", "d", "e"),
  var = rnorm(15, 50, 10)
) -> data

初始绘图与问题 #

我希望将subgroup设为X轴，按group分面展示数据：

data %>%
  ggplot(aes(x = subgroup, y = var)) +
  geom_col() +
  facet_grid(. ~ group, scales = "free", space = "free") -> p

初始绘制的图无扩展间距，为给group A增加左右间距，我尝试用scale_x_discrete(expand=expansion(mult=n))设置不同n值：

p + scale_x_discrete(expand = expansion(mult = 0.1)) + labs(title = "mult=0.1")
p + scale_x_discrete(expand = expansion(mult = 0.2)) + labs(title = "mult=0.2")
p + scale_x_discrete(expand = expansion(mult = 0.5)) + labs(title = "mult=0.5")
p + scale_x_discrete(expand = expansion(mult = 0.7)) + labs(title = "mult=0.7")
p + scale_x_discrete(expand = expansion(mult = 1)) + labs(title = "mult=1")

结果显示各分面的X轴扩展间距不一致，间距大小和分面内的柱状图数量相关。请问有没有方法让各分面的左右扩展间距保持一致？

问题根源在于expansion(mult)是按轴范围的比例计算扩展间距的，分面内柱子数量不同时，轴范围的比例基数有差异，导致间距不一致。要实现统一间距，改用expansion(add)参数即可——它是直接添加固定长度的间距，不受轴范围影响。

修改后的代码示例 #

# 设置统一的左右固定扩展长度（比如add=0.5）
p + scale_x_discrete(expand = expansion(add = 0.5)) + labs(title = "add=0.5")

如果需要单独控制左右间距，还可以传入长度为2的向量：

# 左间距0.3，右间距0.3
p + scale_x_discrete(expand = expansion(add = c(0.3, 0.3))) + labs(title = "左右固定间距0.3")

若需要混合比例与固定间距，也可以同时设置mult和add，但要统一各分面间距时，优先使用add参数。

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