如何在ggplot2中连接不同分组线条并保留指定分组颜色？

需求说明：当数据按Grouping变量分组绘制带颜色的线条时，需要用后一组（Group2）的颜色连接前一组（Group1）的最后一个点与后一组的第一个点，同时保留原有分组的线条颜色。

原始问题复现 #

运行以下代码会生成断开的分组线条，无法满足需求：

set.seed(870123) 
library(ggplot2) 

example_data <- data.frame(
  Date = seq.Date(as.Date("2020-01-01"), length.out = 20, by = "month"),
  Series = rnorm(20) + 1,
  Grouping = c(rep("Group1", 10), rep("Group2", 10))
)

ggplot(example_data, aes(x = Date, y = Series)) + 
  geom_line(aes(color = Grouping)) + 
  geom_point(aes(color = Grouping)) + 
  scale_color_manual(values = c(Group1 = "blue", Group2 = "red"))

直接去掉geom_line的颜色映射会得到单一颜色的完整线条，但不符合分组颜色保留的要求。

以下是两种更优雅的解决方案：

方案1：自动生成过渡行（改进手动复制方案） #

通过代码自动定位分组切换的端点，复制该行并修改分组为后一组，让ggplot自动用对应颜色连接：

set.seed(870123) 
library(ggplot2) 
library(dplyr)

example_data <- data.frame(
  Date = seq.Date(as.Date("2020-01-01"), length.out = 20, by = "month"),
  Series = rnorm(20) + 1,
  Grouping = c(rep("Group1", 10), rep("Group2", 10))
)

# 自动获取Group1的最后一行，修改分组为Group2
transition_row <- example_data %>%
  group_by(Grouping) %>%
  slice_tail(n = 1) %>%
  ungroup() %>%
  slice_head(n = 1) %>%
  mutate(Grouping = "Group2")

# 合并数据
example_data_updated <- bind_rows(example_data, transition_row)

# 绘图
ggplot(example_data_updated, aes(x = Date, y = Series)) + 
  geom_line(aes(color = Grouping)) + 
  geom_point(aes(color = Grouping)) + 
  scale_color_manual(values = c(Group1 = "blue", Group2 = "red"))

该方案避免了硬编码日期，适配任意分组切换的场景。

方案2：用geom_segment手动绘制连接线 #

无需修改原始数据，直接添加一段指定颜色的线段连接两组端点：

set.seed(870123) 
library(ggplot2) 
library(dplyr)

example_data <- data.frame(
  Date = seq.Date(as.Date("2020-01-01"), length.out = 20, by = "month"),
  Series = rnorm(20) + 1,
  Grouping = c(rep("Group1", 10), rep("Group2", 10))
)

# 获取连接的起点（Group1最后一点）和终点（Group2第一点）
connect_points <- example_data %>%
  group_by(Grouping) %>%
  slice(c(n(), 1)) %>%
  ungroup()

# 绘图
ggplot(example_data, aes(x = Date, y = Series)) + 
  geom_line(aes(color = Grouping)) + 
  geom_point(aes(color = Grouping)) + 
  # 添加Group2颜色的连接线，匹配默认线宽
  geom_segment(
    data = connect_points,
    aes(x = Date[1], xend = Date[2], y = Series[1], yend = Series[2]),
    color = "red",
    linewidth = 0.8
  ) +
  scale_color_manual(values = c(Group1 = "blue", Group2 = "red"))

该方案无需修改数据，适合仅需单次连接的简单场景。

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