如何在R ggplot中添加带端点的最大差值垂直线并标注差值

现有如下结构的data.table数据dt：

time   col_A    col_B     diff
1:    930  9925642  10025714  100098.53
2:    931  9925642  10025714  100098.53
3:    932  9925642  10025714  100098.53
4:    933  9925642  10025714  100098.53
5:    934  9925642  10025714  100098.53
---
237: 1456  9949509  10029605  80095.54
238: 1457  9949509  10029605  80095.54
239: 1458  9949509  10029605  80095.54
240: 1459  9949509  10029605  80095.54
241: 1500  9949509  10029605  80095.54

原可视化代码如下：

idx <- 1:nrow(dt)
g <- ggplot(data = dt, aes(x = idx)) +
     geom_line(aes(y = col_A, group = 1, colour = "A"))
     geom_line(aes(y = col_B, group = 2, colour = "B")) +
     geom_vline(xintercept = dt[, .I[diff == max(diff)]], color = "black") +
     scale_color_manual(values = c("A" = "red", "B" = "blue"))
g

当前生成的黑色垂直线为贯穿整个图表的样式，需求为：

• 垂直线仅连接红色col_A线与蓝色col_B线（两端以两条线为端点）
• 添加文本标签显示最大差值数值

通过geom_segment替代geom_vline绘制指定起止点的线段，搭配geom_label添加差值标签，修改后的代码如下：

library(ggplot2)
library(data.table)

# 给dt添加索引列
dt[, idx := .I]

# 筛选出diff最大的行
max_diff_row <- dt[diff == max(diff)]

# 绘制图表
g <- ggplot(data = dt, aes(x = idx)) +
  # 绘制col_A和col_B的折线
  geom_line(aes(y = col_A, color = "A"), linewidth = 1) +
  geom_line(aes(y = col_B, color = "B"), linewidth = 1) +
  # 绘制仅连接两条折线的垂直线段
  geom_segment(
    data = max_diff_row,
    aes(x = idx, xend = idx, y = col_A, yend = col_B),
    color = "black", linewidth = 1
  ) +
  # 添加最大差值的文本标签
  geom_label(
    data = max_diff_row,
    aes(x = idx, y = (col_A + col_B)/2, label = paste("最大差值:", round(diff, 2))),
    color = "black", fill = "white", vjust = 0.5, hjust = 1.1
  ) +
  # 设置颜色映射
  scale_color_manual(values = c("A" = "red", "B" = "blue")) +
  # 可选：优化坐标轴标签和主题
  labs(x = "索引", y = "数值", color = "系列") +
  theme_minimal()

g

关键修改说明 #

1. 替换垂直线绘制方式：geom_segment可以精确指定线段的起点（x, y）和终点（xend, yend），这里x与xend相同保证是垂直线，y和yend分别对应col_A和col_B的数值，实现仅连接两条折线的效果。
2. 提前筛选目标行：提取max_diff_row避免图层中重复计算，让代码更简洁高效。
3. 添加差值标签：用geom_label定位到两条折线的中间位置，显示格式化后的差值，通过hjust调整标签位置避免遮挡线段。
4. 修复原代码问题：补上原代码中geom_line后缺失的+号，同时将索引列直接加入dt，更符合data.table的使用习惯。

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