R ggplot2如何仅填充折线与参考值间区域并按值大小设置填充色

你当前代码出现填充区域斜穿参考线的问题，核心原因是原始数据集中没有包含折线与参考值y=579的交点：当相邻两个观测点分别位于参考值上下两侧时，geom_ribbon()会直接连接两个点做填充，不会自动在交点位置截断，就会出现超出折线与参考线之间范围的错误填充。

先通过线性插值计算出折线和参考线的所有交点，将交点插入原始数据集并按x轴排序，保证任意两个相邻点不会跨参考值两侧，再调用geom_ribbon()即可实现严格填充折线与参考线之间区域、且按上下位置区分填充色的效果。

完整可运行代码如下：

library(ggplot2)

# 原始数据
huron <- data.frame(year = 1875:1972, level = as.vector(LakeHuron))
ref_value <- 579 # 设定参考值

# 插值计算折线与参考线的所有交点
cross_index <- which(diff(sign(huron$level - ref_value)) != 0)
cross_points <- lapply(cross_index, function(i) {
  intersect_x <- approx(
    x = huron$level[c(i, i+1)],
    y = huron$year[c(i, i+1)],
    xout = ref_value
  )$y
  data.frame(year = intersect_x, level = ref_value)
})
# 合并原始数据与交点，按年份排序
huron_processed <- rbind(huron, do.call(rbind, cross_points))
huron_processed <- huron_processed[order(huron_processed$year), ]

# 绘图
ggplot(huron_processed, aes(x = year)) +
  geom_ribbon(
    aes(ymin = ref_value, ymax = level, fill = level > ref_value),
    alpha = 0.6
  ) +
  geom_line(aes(y = level), linewidth = 0.8) +
  geom_hline(yintercept = ref_value, linetype = "dashed") +
  scale_fill_manual(
    values = c(`FALSE` = "#e41a1c", `TRUE` = "#377eb8"),
    name = "水位相对参考值",
    labels = c("低于579", "高于579")
  ) +
  labs(x = "年份", y = "休伦湖水位（英尺）") +
  theme_bw()

调整后填充区域会严格限制在折线和参考线之间，跨参考值的位置会精准对齐参考线，不会出现斜穿参考线的错误填充，和参考案例的填充逻辑完全一致。

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