R ggplot使用geom_ribbon实现零值上下区域分色填充问题求解

你遇到的断裂问题是因为直接按dif>0拆分填充组时，ggplot会将正负值识别为两个独立分组，不会自动补全折线穿过0轴位置的衔接点，所以出现空缺。同时你原代码中scale_fill_manual的values参数直接传入了长度为12的df$filler，而填充分组只有两类，映射逻辑也有误。

推荐两种修复方案： #

方案1：使用ggh4x包的stat_difference（最简方案） #

该函数专门处理两条曲线之间的分色填充，会自动计算过零点插值，无需手动处理数据：

# 首次使用先安装包
# install.packages("ggh4x")
library(tidyverse)
library(ggh4x)

df %>%
  ggplot(aes(x = month, y = dif)) +
  geom_line() +
  # 直接对比dif和0的大小分色填充
  stat_difference(aes(ymin = 0, ymax = dif), alpha = 0.5) +
  # 自定义填充颜色：高于0为浅蓝，低于0为红
  scale_fill_manual(
    values = c("lightblue", "red"),
    labels = c("dif < 0", "dif > 0"),
    name = "区域类型"
  ) +
  scale_x_date(date_breaks = "1 month", guide = guide_axis(angle = 90))

方案2：原生ggplot实现（无需额外安装包） #

手动计算折线与0轴的交点，插入原数据后再绘图：

library(tidyverse)
library(lubridate)

# 步骤1：计算所有过零点并插入原数据
df_processed <- df %>%
  arrange(month) %>%
  # 标记相邻点符号是否变化
  mutate(sign_change = sign(dif) != lag(sign(dif), default = first(sign(dif)))) %>%
  # 提取符号变化的点对做插值
  {
    # 原数据
    base <- select(., month, dif)
    # 过零点
    zeros <- filter(., sign_change) %>%
      rowwise() %>%
      mutate(
        # 取前一个点的坐标
        prev_month = nth(.$month, cur_group_id()),
        prev_dif = nth(.$dif, cur_group_id()),
        # 线性插值求过零点的x坐标
        slope = (dif - prev_dif) / as.numeric(month - prev_month),
        zero_month = prev_month + days(round(-prev_dif / slope)),
        zero_dif = 0
      ) %>%
      ungroup() %>%
      select(month = zero_month, dif = zero_dif)
    # 合并原数据和零点后按时间排序
    bind_rows(base, zeros) %>% arrange(month)
  } %>%
  # 标记每个点的正负属性
  mutate(fill_group = dif >= 0)

# 步骤2：绘图
df_processed %>%
  ggplot(aes(x = month, y = dif)) +
  geom_line() +
  geom_ribbon(aes(ymin = 0, ymax = dif, fill = fill_group), alpha = 0.5) +
  scale_fill_manual(
    values = c("FALSE" = "red", "TRUE" = "lightblue"),
    labels = c("dif < 0", "dif > 0"),
    name = "区域类型"
  ) +
  scale_x_date(date_breaks = "1 month", guide = guide_axis(angle = 90))

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