如何在R中基于y轴数值修改ggplot2折线图的线条颜色

geom_line默认会将color映射的变量作为分组依据，不同颜色分类的观测点会被识别为不同的折线组，不同组之间的线段不会连接，因此无法得到连贯的单条变色折线。

方案1：使用ggforce包（最简实现） #

geom_link2支持单条折线的线段颜色随属性切换，无需手动处理分段逻辑：

1. 首先补全数据的颜色分类，避免NA值影响分组

library(dplyr)
library(ggplot2)
library(ggforce)

# 处理颜色分类列
data <- data %>%
  mutate(color = case_when(
    rates > 90 ~ "高(>90%)",
    rates < 70 ~ "低(<70%)",
    TRUE ~ "正常(70-90%)" # 补全中间区间的分类
  ))

2. 绘图代码

ggplot(data, aes(x=dates, y=rates)) +
  # 强制group=1保证所有点连成一条连贯折线
  geom_link2(aes(color = color, group = 1), linewidth = 1) +
  # 手动配置区间对应颜色
  scale_color_manual(values = c("高(>90%)" = "blue", "低(<70%)" = "red", "正常(70-90%)" = "grey50")) +
  scale_x_date(date_labels = "%b %Y", date_breaks = "1 week") +
  labs(title = "Title", x = "Date", y = "Rates (%)", color = "比率区间")

方案2：原生ggplot实现（无需额外安装扩展包） #

通过geom_segment手动绘制相邻点之间的线段，给每个线段单独赋值颜色：

1. 预处理数据生成分段信息

library(dplyr)
library(ggplot2)

data <- data %>%
  arrange(dates) %>% # 必须按日期排序保证线段顺序正确
  mutate(
    # 生成下一个观测点的坐标，用于绘制线段
    next_dates = lead(dates),
    next_rates = lead(rates),
    # 给每个线段配置颜色
    seg_color = case_when(
      rates > 90 | next_rates > 90 ~ "blue",
      rates < 70 | next_rates < 70 ~ "red",
      TRUE ~ "grey50"
    )
  )

2. 绘图代码

ggplot(data, aes(x=dates, y=rates)) +
  geom_segment(aes(xend = next_dates, yend = next_rates, color = seg_color), linewidth = 1) +
  scale_color_identity() + # 直接使用seg_color列的颜色值，也可以替换为scale_color_manual做映射
  scale_x_date(date_labels = "%b %Y", date_breaks = "1 week") +
  labs(title = "Title", x = "Date", y = "Rates (%)")

进阶优化（可选） #

如果需要颜色刚好在rates=70、rates=90的阈值位置切换，而不是在观测点切换，可以先对日期和rates做线性插值，补全刚好等于阈值的观测点后再分配颜色，切换位置会更精准。

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