如何用ggplot2为时间序列图的不同分段设置不同颜色？

你当前代码生成分离线条的原因是：aes(color = Part)会让ggplot自动按Part列分组，将"NO"和"YES"的点分别连成两条独立的线，所以中间会断开。

要实现连续线条+分段着色，可以用以下两种方法：

方法一：用geom_segment构造分段线段（基础ggplot实现） #

先将数据转换为线段格式（每个点连接到下一个点），再给每个线段分配对应颜色：

library(ggplot2)

# 原始数据
dat = data.frame(
  date = as.Date(c('2000-01-01', '2001-01-01', '2002-01-01', '2003-01-01', '2004-01-01')),
  value = c(10, 5, 12, 2, 23),
  Part = c('NO', 'NO', 'YES', 'YES', 'YES')
)

# 构造线段数据：提取每个线段的起点、终点
seg_dat = dat[-nrow(dat), ]
seg_dat$xend = dat$date[-1]
seg_dat$yend = dat$value[-1]

# 绘图
ggplot() +
  # 绘制分段着色的线段
  geom_segment(data = seg_dat, aes(x = date, y = value, xend = xend, yend = yend, color = Part), size = 1) +
  # 可选：添加数据点，更清晰展示每个节点
  geom_point(data = dat, aes(x = date, y = value, color = Part), size = 2) +
  # 可选：自定义颜色
  scale_color_manual(values = c("NO" = "#2E86AB", "YES" = "#D83A56"))

方法二：用ggforce包的geom_link（快速实现） #

如果可以接受分段处的颜色过渡效果，ggforce的geom_link可以直接实现连续线条按点属性着色：

library(ggplot2)
library(ggforce)

dat = data.frame(
  date = as.Date(c('2000-01-01', '2001-01-01', '2002-01-01', '2003-01-01', '2004-01-01')),
  value = c(10, 5, 12, 2, 23),
  Part = c('NO', 'NO', 'YES', 'YES', 'YES')
)

ggplot(dat, aes(x = date, y = value, color = Part)) +
  # group=1强制所有点连成一条线，color=Part按点属性着色
  geom_link(group = 1, size = 1) +
  geom_point(size = 2) +
  scale_color_manual(values = c("NO" = "#2E86AB", "YES" = "#D83A56"))

注意： #

• 方法一的线段颜色完全匹配对应点的Part，分段处无过渡；
• 方法二的geom_link会在不同Part的点之间生成颜色渐变过渡。

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