ggplot线条选择性标记方案咨询：仅标记末点y值达标线条

嘿，这个需求其实用ggplot2本身就能轻松实现，不用纠结directlabels的文档！我给你一步步演示怎么搞定：

1. 准备完整的示例数据 #

首先我先补全你给出的示例数据（给每个ID配上X轴变量，补全Y值到25个）：

library(ggplot2)
library(dplyr) # 用dplyr做数据预处理更方便，也可以用base R替代

# 构造完整数据集
ID <- c(rep("ID1", 5), rep("ID2", 5), rep("ID3", 5), rep("ID4", 5), rep("ID5", 5))
Y <- c(1, 2, 3, 4, 5, 
       10, 20, 30, 40, 1, 
       5, 10, 15, 10, 60, 
       50, 30, 20, 25, 10, 
       20, 25, 30, 35, 40)
X <- rep(1:5, 5) # 折线图需要X轴变量，这里设为1到5的重复
df <- data.frame(ID, X, Y)

2. 预处理：筛选符合条件的标签数据 #

核心思路：先找出每个ID的最后一个观测点，再筛选出Y值超过设定阈值的ID，最后只保留这些ID的最后一个点作为标签数据源：

# 设定你的阈值，这里以30为例
threshold <- 30

# 用dplyr筛选符合条件的标签数据
label_data <- df %>%
  group_by(ID) %>%
  slice_tail(n = 1) %>% # 取每个ID的最后一行
  filter(Y > threshold) # 只保留Y值超过阈值的行

如果不想用dplyr，用base R也能实现：

# base R版本的预处理
last_rows <- df[!duplicated(df$ID, fromLast = TRUE), ] # 取每个ID的最后一行
label_data <- last_rows[last_rows$Y > threshold, ]

3. 绘制带选择性标签的折线图 #

用geom_line()画出所有折线，然后用geom_text()只给符合条件的点添加标签，同时调整标签位置避免被截断：

ggplot(df, aes(x = X, y = Y, color = ID)) +
  geom_line(linewidth = 1) +
  # 仅使用筛选后的label_data添加标签，调整位置避免重叠
  geom_text(data = label_data, aes(label = ID), hjust = -0.2, vjust = 0.5, size = 4) +
  theme_minimal() +
  expand_limits(x = max(df$X) * 1.1) # 扩展X轴右侧范围，防止标签被切掉

这样画出来的图就只会给最后一个点Y值超过阈值的折线标记ID啦！比如在这个示例里，ID3（最后Y=60）和ID5（最后Y=40）会被标记，其他ID则不会。

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