如何在ggplot中绘制按y值切换颜色的混合色geom_line折线

你遇到的同色不连续线段被错误连接的问题，核心原因是：geom_line默认会将同一颜色类别的所有点全部连接，没有区分「连续同色段」的边界。下面是两种无需手动拆分线段的简便解决方案： #

方案1：基础包实现，无额外依赖 #

只需要新增一个「连续同色段分组id」，绘图时同时映射到group参数即可，无需手动统计分段数量：

• 第一步：生成颜色标识列和连续段分组id

  # 构造示例数据，可替换为你自己的数据集
  set.seed(123)
  df <- data.frame(
    x = 1:100,
    y = runif(100, 0, 1)
  )
  # 生成颜色标识
  df$color_group <- ifelse(df$y > 0.5, "Y>0.5", "Y≤0.5")
  # 自动生成连续同色段的唯一id：颜色和上一行不同时id+1
  df$segment_id <- cumsum(c(1, diff(as.factor(df$color_group)) != 0))
  

• 第二步：绘图时同时映射group和color

  library(ggplot2)
  ggplot(df, aes(x = x, y = y)) +
    geom_line(aes(color = color_group, group = segment_id), linewidth = 1) +
    scale_color_manual(
      values = c("Y>0.5" = "red", "Y≤0.5" = "blue"),
      name = "数值区间"
    ) +
    theme_bw()
  

方案2：使用ggforce扩展包，代码更简洁 #

如果允许安装扩展包，ggforce的geom_link2可以自动处理分段逻辑，无需提前生成分组id，还能自动在阈值处插入过渡点，让颜色切换完全对齐0.5的分界：

library(ggplot2)
library(ggforce)
ggplot(df, aes(x = x, y = y)) +
  geom_link2(aes(color = after_stat(y > 0.5)), linewidth = 1) +
  scale_color_manual(
    values = c("FALSE" = "blue", "TRUE" = "red"),
    name = "数值区间",
    labels = c("Y≤0.5", "Y>0.5")
  ) +
  theme_bw()

内容的提问来源于stack exchange，提问作者Miles N.