ggplot散点图中高效添加分组同色geom_segment的方法

原有geom_segment代码直接对全量数据计算xend/yend，未按年份分组处理，会出现跨年连线的错误，不符合同一年份观测点依次连接的要求。

提前按年份分组预处理数据，生成组内相邻点的终点坐标后再绘制线段，保持线段和散点的颜色映射规则完全一致，即可自动实现同色、不跨年连线的效果，无需手动匹配配色。

完整可运行代码：

library(tidyverse)
library(plotly)

set.seed(100)
tibble_tabble <- tibble(Year = c( rep(2020,12), rep(2021,12), rep(2022,12) ),
                        X    = runif(36),
                        Y    = sample(101:136, 36)
) %>%
  # 按年份分组，生成同组下一个点的坐标作为线段终点，组内最后一个点终点自动为NA，不生成连线
  group_by(Year) %>%
  # 若需要按X轴数值从小到大连线，取消下一行注释即可
  # arrange(X, .by_group = TRUE) %>%
  mutate(
    xend = lead(X, n = 1),
    yend = lead(Y, n = 1)
  ) %>%
  ungroup()


p <- ggplot( tibble_tabble , aes(x = X , y = Y ) ) +          
  geom_point( aes(color = factor(Year)) , size = 2 , alpha = 0.7) +
  # 线段颜色映射规则和散点完全一致，自动匹配对应年份的颜色
  geom_segment(aes(color = factor(Year), xend = xend, yend = yend), linewidth = 1) +
  scale_color_discrete(name = "")    

ggplotly(p)

• 用group_by(Year)拆分不同年份的观测子集，lead()函数仅在同一年份的子集内取相邻下一个点的坐标作为线段终点，每个年份最后一个点无后续观测，返回NA，从根源上避免跨年份连线
• 线段和散点均将颜色映射到factor(Year)，ggplot会自动为相同年份的散点、线段分配完全一致的颜色，无需手动设置色值
• 取消代码中arrange()的注释即可实现和Excel折线一致的、按横坐标排序后依次连线的效果。

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