使用ggplot2绘制分组多色geom_area时间序列图问题求解

核心问题点 #

• 颜色映射未正确放入aes()中，导致ggplot无法将type分类和颜色、填充属性关联
• 仅配置了线条颜色映射规则，未同步配置面积填充的颜色映射规则
• 分组面积间隙过大的核心原因是你提供的示例数据中三个type对应的时间区间本身无重叠：type1对应前5天、type2对应中间5天、type3对应最后4天，天然存在时间断层，若需缩小间隙可补全各type在全时间区间的数值，缺失值设为NA即可。

修正后的可运行代码 #

library(ggplot2)
# 数据预处理和原有逻辑一致
df$type <- as.factor(df$type)
df$date <- as.Date(df$date)

# 修正后绘图代码
ggplot(data=df, aes(x=date, y=value, group=type, color=type, fill=type)) + 
  geom_area(alpha=0.4, position = "identity") +
  geom_line(size=1) +
  geom_point(size=2) +
  # 同步配置线条和填充的自定义颜色，和type取值一一对应
  scale_color_manual(values=c("1"="gray", "2"="red", "3"="blue")) +
  scale_fill_manual(values=c("1"="gray", "2"="red", "3"="blue"))

代码说明 #

1. 将color和fill属性统一放入全局aes()中，和分类变量type绑定，无需在每个geom层单独赋值
2. 新增scale_fill_manual配置面积填充的自定义颜色，和线条颜色一一对应
3. 给geom_area添加position = "identity参数，避免面积默认堆叠导致数值偏移

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