如何在ggplot2多线图中仅为单条线的数据点添加标签？

问题核心是geom_text_repel默认使用了全局数据集df，而df包含Stem_Height和Elevation两类数据，导致所有点都被添加标签。只需给文本标注图层指定过滤后的子集数据，就能实现仅为"Elevation"线添加标签的效果。

修改后的完整代码 #

# 数据预处理
library("tidyverse")
df <- mydatacsv %>%
  select(Meter, Stem_Height, Elevation, Desc) %>%
  gather(key = "Legend", value = "value", -Meter, -Desc)

# 可视化部分
ggplot(df, aes(x = Meter, y = value)) + 
  geom_line(aes(color = Legend)) + 
  scale_color_manual(values = c("green4","black")) +
  geom_point(data = mydatacsv, aes(y = Stem_Height), color = "green4")+
  geom_point(data = mydatacsv, aes(y = Elevation), color = "black")+
  # 仅为Elevation对应的点添加标签
  geom_text_repel(
    data = filter(df, Legend == "Elevation"),  # 筛选出Elevation数据
    aes(label = Desc),
    max.overlaps = Inf,
    hjust = -0.1, 
    angle = 90
  ) +
  xlab("Distance (m)") +
  ylab("Elevation (m)")

关键修改说明 #

• 移除全局映射中的label=Desc，避免标签被传递给所有图层
• 给geom_text_repel单独指定data = filter(df, Legend == "Elevation")，仅使用Elevation对应的数据行
• 在geom_text_repel内部单独设置aes(label = Desc)，确保仅为目标数据添加标签

优化版代码（更简洁） #

可以直接用整理后的df统一绘制点和线，避免重复调用原始数据集：

library("tidyverse")
df <- mydatacsv %>%
  select(Meter, Stem_Height, Elevation, Desc) %>%
  gather(key = "Legend", value = "value", -Meter, -Desc)

ggplot(df, aes(x = Meter, y = value, color = Legend)) + 
  geom_line() + 
  geom_point() +
  scale_color_manual(values = c("green4","black")) +
  geom_text_repel(
    data = filter(df, Legend == "Elevation"),
    aes(label = Desc),
    max.overlaps = Inf,
    hjust = -0.1, 
    angle = 90
  ) +
  xlab("Distance (m)") +
  ylab("Elevation (m)")

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