ggplot2多系列条形图中线段锚定对应条形中点的实现方法

核心思路是统一条形和线段的避障规则，利用ggplot2自带的position_dodge自动计算每个分组条形的中点位置，完全不需要手动调整x坐标。

推荐的最简实现代码如下：

library(ggplot2)
# 原始数据
d <- data.frame(cat1=rep(c('Ape','Cat','Dog'),2),
                measurement=c(8,7,2,9,5,4),
                cat2=c('A','A','A','B','B','B'))

# 统一设置避障宽度，和ggplot2默认的条形避障宽度保持一致
dodge_width <- 0.9

ggplot(d, aes(x = cat1, y = measurement, fill = cat2)) +
  geom_bar(stat = 'identity', position = position_dodge(width = dodge_width)) +
  # 筛选首尾分类数据绘制分组连线
  geom_line(data = ~subset(.x, cat1 %in% c("Ape", "Dog")),
            aes(group = cat2, color = cat2), 
            position = position_dodge(width = dodge_width),
            linewidth = 1)

代码说明 #

• 提前定义统一的dodge_width参数，保证条形和线段的位置计算逻辑完全一致，不会出现偏移
• geom_line通过子集筛选仅保留首尾两个分类的观测值，设定group = cat2会自动为每个cat2分组生成一条连接首尾的线段
• 给geom_line也应用相同宽度的position_dodge，线段会自动锚定到对应分组条形的中点，即使后续cat2的分组数量增减，也不需要修改逻辑，自动适配
• 可选添加color = cat2映射，让线段颜色和对应条形的填充色匹配，视觉对应关系更清晰

如果确实需要使用geom_segment实现（比如要自定义箭头、端点样式等），可以使用如下版本：

library(ggplot2)
d <- data.frame(cat1=rep(c('Ape','Cat','Dog'),2),
                measurement=c(8,7,2,9,5,4),
                cat2=c('A','A','A','B','B','B'))
dodge_width <- 0.9

# 提前整理每个分组的首尾取值
seg_data <- reshape2::dcast(d, cat2~cat1, value.var = "measurement")

ggplot(d, aes(x = cat1, y = measurement, fill = cat2)) +
  geom_bar(stat = 'identity', position = position_dodge(width = dodge_width)) +
  geom_segment(data = seg_data,
               aes(x = as.numeric(factor("Ape", levels = levels(d$cat1))), 
                   xend = as.numeric(factor("Dog", levels = levels(d$cat1))),
                   y = Ape, yend = Dog,
                   group = cat2, color = cat2),
               position = position_dodge(width = dodge_width),
               linewidth = 1,
               show.legend = FALSE)

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