R ggplot2 geom_col条形与X轴不对齐问题（同组条形设不同间隙）

问题出在直接使用geom_col(width = df$width)配合position_dodge2时，ggplot无法自动根据不同宽度的条形调整位置以对齐X轴组标签。最可靠的方法是手动计算每个条形的X轴位置，确保整个组的条形中心与X轴标签对齐。

修改后的代码： #

library(tidyverse)

df <- data.frame(
  group = rep(c("A", "B", "C"), each = 3),
  category = rep(c("X", "Y", "Z"), 3),
  value = rnorm(9)
)
df$width = ifelse(df$category=="X",2,1)

# 将分组转换为数值，方便计算位置
df$group_num <- as.numeric(factor(df$group))

# 计算每个类别的精准X位置，保证组内整体对齐X轴标签
df$x_pos <- case_when(
  df$category == "X" ~ df$group_num - 1.25,
  df$category == "Y" ~ df$group_num + 0.75,
  df$category == "Z" ~ df$group_num + 1.75
)

ggplot(df, aes(x = x_pos, y = value, fill = category)) +
  geom_col(width = df$width) +
  # 替换X轴刻度为原分组标签
  scale_x_continuous(breaks = unique(df$group_num), labels = unique(df$group)) +
  scale_fill_manual(values = c("red", "green", "blue"))

原理说明： #

1. 把group转换为数值类型（group_num），作为X轴对齐的基准点。
2. 根据你设置的条形宽度和间隙要求，计算每个category在组内的偏移位置：
   • X的宽度为2，放在组中心左侧1.25的位置
   • Y和Z宽度为1，放在组中心右侧0.75和1.75的位置，同时保持Y和Z无间隙、X与Y有0.5的间隙
3. 用scale_x_continuous把X轴刻度替换回原分组名称，确保显示正常。

内容的提问来源于stack exchange，提问作者G.A.7