如何在ggplot2中自定义X轴分类变量各水平的预留宽度

方法1：用ggh4x包的增强版分组避让 #

ggh4x扩展包的position_dodge2支持根据每个X轴类别的分组数量自动调整宽度，能直接消除"A"的空白区域。

先安装并加载包：

install.packages("ggh4x")
library(ggh4x)

修改绘图代码：

ggplot(df_simu, aes(x=Var1, y=value, fill=Var2, group=Var2)) +
  geom_col(position = position_dodge2(preserve = "single", padding = 0, width = 0.8)) +
  scale_x_discrete(expand = c(0.05, 0)) # 可选：缩小X轴两端的空白

方法2：手动计算分组数设置宽度（无需额外包） #

如果不想装新包，可以先统计每个Var1下的分组数量，再给每个类别设置对应宽度：

1. 先统计分组数：

group_counts <- df_simu %>% 
  count(Var1) %>% 
  deframe()

2. 绘图时动态设置柱子宽度：

ggplot(df_simu, aes(x=Var1, y=value, fill=Var2, group=Var2)) +
  geom_col(
    position = position_dodge(preserve = "single", padding = 0),
    width = 0.8 / max(group_counts) * group_counts[as.character(df_simu$Var1)]
  ) +
  scale_x_discrete(expand = c(0.05, 0))

原理是让分组最多的类别（B、C各4组）的总宽度为0.8，单个柱子宽度为0.2；A只有1组，总宽度就是0.2，刚好填满对应空间，不会留空白。

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