ggplot可视化求助：根据Value阈值设置点的颜色（Steelblue/Plum）

要实现Value高于1.35的部分用plum色，低于的用Steelblue色，核心是根据阈值生成颜色分组变量，再将其映射到ggplot的color美学属性，以下是修改后的完整代码：

步骤1：预处理数据，添加颜色分组列 #

先给数据框（包括water和riverwater）添加用于区分颜色的分组列：

# 加载所需包
library(lubridate)
library(ggplot2)
library(plotly)

# 转换时间格式
water$Timestamp <- water$Timestamp %>% dmy()
# 假设riverwater结构与water一致，同步处理
riverwater$Timestamp <- riverwater$Timestamp %>% dmy()

# 根据Value阈值生成颜色分组
water$color_group <- ifelse(water$Value > 1.35, "above", "below")
riverwater$color_group <- ifelse(riverwater$Value > 1.35, "above", "below")

步骤2：修改ggplot代码，映射颜色并指定配色 #

在点图层和线图层的aes中加入color = color_group，再用scale_color_manual绑定分组与对应颜色：

river <- ggplot() + 
  coord_cartesian() +
  # 点图层：绑定颜色分组映射
  layer(
    data = water,
    mapping = aes(x = Timestamp, y = Value, color = color_group),
    stat = "identity",
    geom ="point", 
    position = position_identity()
  ) +
  # 线图层：同样绑定颜色分组映射
  layer(
    data = riverwater,
    mapping = aes(x = Timestamp, y = Value, color = color_group),
    stat ="identity",
    geom ="line",
    position = position_identity()
  ) +
  # 指定阈值对应的颜色值
  scale_color_manual(
    values = c(
      "above" = "plum",
      "below" = "steelblue"
    ),
    # 可选：自定义图例标题，不需要可删除该行
    name = "Value Level"
  )

# 转换为交互式图表
ggplotly(river)

补充说明 #

• 若不需要显示颜色图例，可在scale_color_manual中添加guide = "none"参数隐藏
• 如果riverwater数据与water是同一数据集，可合并处理逻辑，减少重复代码

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