如何在ggplot中仅为低于另一曲线的点按指定列着色？

核心思路是根据value2与value1的大小关系，动态指定颜色映射的分组值：当value2高于value1时，用一个统一标识归类；当value2低于或等于value1时，直接使用text列的值作为分组依据。后续通过scale_color_manual分别为这两类情况分配颜色。

修改后的完整代码 #

df <- setNames(data.frame(c("2022-07-29 00:00:00","2022-07-29 00:00:05",
                           "2022-07-29 00:05:00","2022-07-29 00:05:05",
                           "2022-07-29 00:10:00","2022-07-29 00:15:00",
                           "2022-07-29 00:20:00","2022-07-29 00:20:05"), 
                          c(1,2,3,4,5,6,7,8), 
                          c(0.8,2.1,2.5,4.1,5,6.1,6.9,8.1),
                          c("a","a","b","b","b","b","b","c")),
                          c("timeStamp", "value1", "value2", "text"))

# 转换时间列为日期时间类型，确保x轴按时间顺序正确显示
df$timeStamp <- as.POSIXct(df$timeStamp)

ggplot(df) +
  # 给value1的点设置统一颜色，避免与value2的点混淆
  geom_point(aes(timeStamp, value1), color = "black", size = 2) +
  # 动态生成颜色分组：高于value1则归为统一组，否则用text列值
  geom_point(aes(timeStamp, value2, color = ifelse(value2 > value1, "高于value1", text)), size = 3) +
  scale_color_manual(
    name = "点分类",
    values = c(
      "高于value1" = "gray50", # 高于时设为灰色，可替换为"black"
      "a" = "#E64B35",
      "b" = "#4DBBD5",
      "c" = "#00A087"
    )
  ) +
  labs(x = "时间", y = "数值") +
  theme_minimal()

关键调整说明 #

1. 颜色映射逻辑：用ifelse在aes(color)中直接判断分组，把"value2高于value1"的情况单独归为一组，其余情况沿用text列的分类，完美匹配需求。
2. 颜色值配置：scale_color_manual需要覆盖所有可能的分组值——包括统一标识"高于value1"和text列的所有类别（a、b、c），可根据需求自定义颜色。
3. 时间列优化：将timeStamp转为POSIXct类型，避免ggplot把时间当作字符串乱序排列。

适配多text类别的简化写法 #

如果text列的类别很多，手动指定颜色太繁琐，可以自动生成离散颜色：

# 提取text列的所有唯一类别
text_categories <- unique(df$text)
# 自动生成离散色，同时指定"高于value1"的颜色
color_map <- c("高于value1" = "gray50", setNames(scales::hue_pal()(length(text_categories)), text_categories))

ggplot(df) +
  geom_point(aes(timeStamp, value1), color = "black") +
  geom_point(aes(timeStamp, value2, color = ifelse(value2 > value1, "高于value1", text))) +
  scale_color_manual(name = "点分类", values = color_map)

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