ggplot2中为geom_line绘制的上限参考线添加图例的方法

你的代码无法生成上限线图例的核心问题有两点：

• 绘制上限线的geom_line()层中，你同时在aes()内写了color=UpperLimit映射、在aes()外设置了固定参数color="red"，外部固定颜色优先级高于内部映射，会直接覆盖美学映射逻辑，导致图例无法触发
• PointName是离散分类变量，UpperLimit是连续数值变量，二者无法共用同一个color美学标尺，强行映射会出现标尺类型冲突。

不需要单独调用复杂的标尺函数重写所有图例，只需要把上限线作为独立分类合并到现有离散颜色映射中即可，完全不会改动原有监测点的图例显示，修改后的完整代码如下：

library(ggplot2)
df2 <- subset(dataset, ResultNumericValue < 1000000)
names(df2)[4] <- "PointName"
df2[[1]] <- as.POSIXct(df2[[1]], tz="GMT", format="%Y-%m-%dT%H:%M")

ggplot(df2, aes(x=SampleDate, y=ResultNumericValue)) +
  geom_line(aes(color=PointName)) +
  geom_point(aes(color=PointName)) +
  # 将上限线映射为固定分类标签，不要在aes外部设置color参数
  geom_line(aes(y = UpperLimit, color = "Upper Limit"), size = 1) +
  # 仅单独指定上限线为红色，其余监测点自动使用默认离散配色
  scale_color_manual(values = c("Upper Limit" = "red")) +
  labs(x = "Sample Date", y = "Sample Value", color = "Points") +
  theme(
    panel.grid.major = element_line(color = "darkgrey", size = 0.5, linetype = 3),
    panel.background = element_rect(fill = "white", colour = "grey50")
  )

• 在aes()内给上限线的color映射固定字符串"Upper Limit"，相当于手动给这条线添加分类标识，ggplot2会自动将该分类合并到现有离散颜色图例中，不会破坏原有监测点的映射关系
• 通过scale_color_manual()仅给新增的"Upper Limit"分类指定红色，原有监测点的配色、图例条目完全不会被改动
• 如果你的上限值是全局固定常数（比如示例数据里所有行UpperLimit都是13），也可以替换为geom_hline(aes(yintercept = 13, color = "Upper Limit"), size = 1)绘制水平参考线，逻辑完全一致。

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