geom_bar如何自定义条形差异化间距实现按国家分组效果

常规position_dodge()的逻辑是给所有条形分配均等的占位宽度，只能设置统一的避让间距，确实无法直接实现同组条形密、异组条形疏的效果，但不需要改动原始数据集，通过动态映射x轴位置的方式就能实现需求：

• 核心逻辑：不依赖默认的均匀dodge排布，手动给不同层级的条形分配x坐标：给每个国家组设置间隔较大的基准x坐标，同国家下的不同区域条形，在对应国家的基准x坐标附近做小幅度偏移，保证组内条形间距小，跨组之间自然留出空白区隔。
• 参考实现代码（基于ggplot2）：

library(ggplot2)
# 所有计算均在绘图逻辑内完成，不会对原始数据集做任何修改
ggplot(df, aes(
  x = {
    # 给每个国家分配间隔1.5的基准x坐标
    country_unique <- unique(country)
    country_x_pos <- setNames(seq(1, by = 1.5, length.out = length(country_unique)), country_unique)
    # 同国家内区域按顺序做小幅度偏移，组内步长0.2
    region_offset <- ave(as.numeric(region), country, FUN = function(x) (as.numeric(factor(x)) - mean(seq_along(x)))*0.2)
    country_x_pos[as.character(country)] + region_offset
  },
  y = respondent_count, # 替换为数据集里受访者数量对应的列名
  fill = country
)) +
  geom_col(width = 0.7) +
  # x轴刻度对齐每个国家组的中心位置
  scale_x_continuous(
    breaks = seq(1, by = 1.5, length.out = length(unique(df$country))),
    labels = unique(df$country),
    name = "所属国家及区域"
  )

你可以自行调整两个参数控制间距效果：

• 国家基准坐标的步长（代码里的by=1.5）：数值越大，不同国家组之间的间隔越宽
• 组内偏移步长（代码里的*0.2）：数值越大，同国家下不同区域的条形间距越宽

不需要额外添加分组框线或者分隔线，只要保证同组所有条形的x坐标范围小于组间的基准间隔，视觉上就能自然形成清晰的分组区隔。如果需要显示每个区域的具体标签，额外加一层geom_text()做对应位置的文本映射即可，同样不需要改动原始数据。

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