如何在ggplot的geom_line折线图中仅自动标注数值变化的点

看到你的问题了，这种批量处理数据时自动标注折线转折点的需求太常见了！核心思路就是先从数据里筛选出数值发生变化的点（包括起始点），只给这些点加标签，就能解决满屏标签的混乱问题，而且完全不用手动调整，适配所有数据集。

下面一步步修改你的代码：

1. 给数据标记转折点 #

我们先给数据集加一个判断列，标记哪些是需要标注的转折点：要么是数据的第一行，要么当前行的value和上一行的value不一样。用dplyr的lag()函数就能轻松实现：

dt <- dt %>%
  mutate(
    # 标记转折点：第一行 或 当前值与前一行值不同
    is_turning_point = row_number() == 1 | value != lag(value, default = first(value))
  )

2. 修正Y轴刻度的设置 #

你原来的scale_y_continuous用了dt$value和dt$label，这会导致Y轴出现重复的冗余刻度。我们应该用参考表ref里的唯一对应关系，这样Y轴刻度才清晰准确：

scale_y_continuous(breaks = ref$value, labels = ref$label)

3. 只给转折点添加标签 #

在geom_text_repel里，我们只使用标记为is_turning_point == TRUE的子集数据，这样就只会在数值变化的位置显示标签了：

geom_text_repel(data = filter(dt, is_turning_point), aes(label = label))

完整可运行的修改后代码 #

library(data.table)
library(dplyr)
library(ggplot2)
library(ggrepel)

ref <- data.table(
  label = c("Homebase", "Newark, New Jersey", "Philadelphia, Pennsylvania", "Charleston, South Carolina"),
  value = 0:3
)
dt <- data.table(
  year = 1990:2009,
  value = c(0, rep(1, 3), 3, rep(1, 2), rep(2, 5), rep(3, 6), rep(2, 2))) %>%
  mutate(label = ref$label[match(value, ref$value)]) %>%
  # 添加转折点标记列
  mutate(
    is_turning_point = row_number() == 1 | value != lag(value, default = first(value))
  )

g <- ggplot(dt, aes(x = year, y = value)) +
  geom_line() +
  # 用ref的唯一对应关系设置Y轴刻度
  scale_y_continuous(breaks = ref$value, labels = ref$label) +
  # 仅对转折点添加标签
  geom_text_repel(data = filter(dt, is_turning_point), aes(label = label))

print(g)

效果说明 #

这样修改后，图表只会在value发生变化的位置（包括起始点）显示标签，完美匹配你想要的简洁效果，而且逻辑完全自动化，不管你换多少数据集，只要结构一致，这个方法都能直接用。

备注：内容来源于stack exchange，提问作者low