如何在ggplot2分组柱状图内用线条连接同类别柱顶？

要实现每个type类别内连接3个柱状图顶部的效果，核心是让线条的位置和分组柱状图的偏移对齐，同时指定正确的分组逻辑。下面提供两种可行的实现方式：

方式一：提前计算均值（更直观可控） #

先预处理数据算出每个type和time组合的均值，再基于均值绘制柱状图和连接线条：

library(ggplot2)
library(dplyr)

# 生成可重复的测试数据
set.seed(123)
data <- data.frame(time = factor(rep(1:3, each=8)), 
                   type = rep(LETTERS[1:4], 6), 
                   values = runif(24)*10)

# 计算每个(type, time)的均值
mean_data <- data %>%
  group_by(type, time) %>%
  summarize(mean_val = mean(values), .groups = "drop")

# 绘制图形
ggplot(mean_data, aes(x = type, y = mean_val, fill = time)) +
  # 分组柱状图，保持dodge宽度一致
  geom_bar(stat = "identity", width = 0.55, size = 1, position = position_dodge(0.75)) +
  # 连接同type下的三个柱子顶部，group=type指定分组逻辑
  geom_line(aes(group = type), position = position_dodge(0.75), color = "black", linewidth = 1) +
  # 可选：添加柱子顶部的点，增强线条的视觉关联
  geom_point(position = position_dodge(0.75), size = 2)

方式二：直接用stat_summary（无需预处理） #

如果不想提前计算均值，可以直接通过stat_summary同时生成柱状图、线条和点，省去数据预处理步骤：

library(ggplot2)

set.seed(123)
data <- data.frame(time = factor(rep(1:3, each=8)), 
                   type = rep(LETTERS[1:4], 6), 
                   values = runif(24)*10)

ggplot(data, aes(x = type, y = values, fill = time)) +
  stat_summary(fun = mean, geom = "bar", width = 0.55, size = 1, position = position_dodge(0.75)) +
  # 用stat_summary计算均值并绘制线条，group=type确保同类别内的点被连接
  stat_summary(fun = mean, geom = "line", aes(group = type), position = position_dodge(0.75), color = "black", linewidth = 1) +
  # 可选：添加均值点
  stat_summary(fun = mean, geom = "point", position = position_dodge(0.75), size = 2)

关键注意事项 #

• 分组逻辑：必须设置aes(group = type)，这样ggplot才会将同一type下的不同time的柱子顶部点连接起来。
• 位置对齐：position_dodge(0.75)的参数值要和柱状图的position参数完全一致，否则线条会和柱子错位。
• 样式调整：可以根据需求修改线条颜色、线宽，以及点的大小、颜色等参数，优化视觉效果。

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