如何在R的ggplot2中添加连接Time1与Time3均值的线条？

geom_hline() 是用来绘制固定y值的水平直线，无法连接不同x轴位置的点，所以不适合你的需求。要实现连接Time1和Time3均值的线条，需先计算这两个分组的均值，再用geom_line()或geom_segment()绘制线段。

步骤1：计算目标分组的均值 #

先从原数据框筛选出Time1和Time3的记录，计算各自的均值：

library(dplyr)
library(ggplot2)

# 原数据框
df <- data.frame(Category=c("a", "b", "c", "d", "e", "f", "g", "h"), 
                 Value=c(10,15,17,8,20,23,19,7), 
                 Time=c("Time1", "Time2", "Time1", "Time3", "Time2", "Time1", "Time3", "Time1"))

# 计算Time1和Time3的均值
mean_data <- df %>%
  filter(Time %in% c("Time1", "Time3")) %>%
  group_by(Time) %>%
  summarise(mean_val = mean(Value))

步骤2：绘制带均值连线的图表 #

在原有绘图代码基础上，添加geom_line()连接两个均值点：

ggplot(df, aes(x=Time, y=Value, label=Category)) + 
  geom_text() + 
  # 添加均值连线，指定数据源和映射，group=1强制将两个点归为一组
  geom_line(data = mean_data, aes(x=Time, y=mean_val, group=1), color="red", size=1) +
  # 可选：添加均值点标记
  geom_point(data = mean_data, aes(x=Time, y=mean_val), color="red", size=3) +
  theme_minimal()

如果想用geom_segment()直接绘制线段，可明确指定起点和终点坐标：

# 提取均值的具体数值
time1_mean <- mean_data$mean_val[mean_data$Time == "Time1"]
time3_mean <- mean_data$mean_val[mean_data$Time == "Time3"]

ggplot(df, aes(x=Time, y=Value, label=Category)) + 
  geom_text() + 
  geom_segment(aes(x="Time1", xend="Time3", y=time1_mean, yend=time3_mean), color="red", size=1) +
  theme_minimal()

说明 #

• group=1 在geom_line()中是必需的，避免ggplot按x轴变量自动分组导致无法连线。
• 可根据需求调整线条的颜色、粗细等样式参数。

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