ggplot2中geom_ribbon仅在指定x区间着色失败求助

核心问题 #

你当前代码的问题是没有对数据进行区间筛选，直接用全量的Time、L.MEAN、P.MEAN数据做填充，导致着色覆盖了整个x轴范围。以下是具体的常见错误点和修正方法：

常见错误原因 #

• 着色函数（如polygon()或geom_ribbon()）未限定x轴的WIT-WOT区间，直接传入全部数据进行填充。
• 使用which()获取WIT/WOT的索引时出错：比如返回了多个索引、或Time中不存在对应值，导致筛选条件失效，最终用了全量数据。
• 填充区域的坐标构建错误：没有以WIT和WOT为起止点闭合多边形，而是用了全量数据的首尾点，导致填充范围溢出目标区间。

修正示例（分两种绘图系统） #

1. Base R 绘图修正

# 1. 筛选WIT到WOT之间的数据子集
target_idx <- Time >= WIT & Time <= WOT
time_sub <- Time[target_idx]
L_sub <- L.MEAN[target_idx]
P_sub <- P.MEAN[target_idx]

# 2. 绘制原有折线（保留你的原有代码）
plot(Time, L.MEAN, type = "l", col = "blue", xlab = "Time")
lines(Time, P.MEAN, type = "l", col = "red")

# 3. 填充P.MEAN与x轴之间的区域（仅目标区间）
polygon(c(time_sub, rev(time_sub)), 
        c(P_sub, rep(0, length(P_sub))), 
        col = "#90EE90", border = NA)

# 4. 填充两条折线之间的区域（仅目标区间）
polygon(c(time_sub, rev(time_sub)), 
        c(L_sub, rev(P_sub)), 
        col = "#ADD8E6", border = NA)

2. ggplot2 绘图修正

library(ggplot2)
# 把数据整理成数据框
df <- data.frame(Time = Time, L.MEAN = L.MEAN, P.MEAN = P.MEAN)

ggplot(df, aes(x = Time)) +
  geom_line(aes(y = L.MEAN), color = "blue") +
  geom_line(aes(y = P.MEAN), color = "red") +
  # 填充P.MEAN与x轴的区域，限定x范围
  geom_ribbon(aes(ymin = 0, ymax = P.MEAN), 
              fill = "#90EE90", alpha = 0.5,
              data = subset(df, Time >= WIT & Time <= WOT)) +
  # 填充两条折线之间的区域，限定x范围
  geom_ribbon(aes(ymin = P.MEAN, ymax = L.MEAN), 
              fill = "#ADD8E6", alpha = 0.5,
              data = subset(df, Time >= WIT & Time <= WOT))

关键注意点 #

• 确保WIT和WOT是Time向量中存在的有效值，或者用which.min(abs(Time - WIT))来找到最接近的索引，避免因Time无匹配值导致筛选失败。
• 填充时必须用筛选后的子集数据构建填充区域的坐标，不能直接用全量数据。

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