如何在ggplot2中使用geom_area()绘制重叠面积图（解决堆叠问题）

你遇到的问题其实是ggplot2中geom_area的默认行为导致的——它默认使用position = "stack"，所以会把不同类别的面积堆叠起来，而不是重叠显示。要改成重叠面积图，只需要调整两个关键参数，同时优化一下可视化效果就行，下面给你两种解决方案：

方案1：先预处理数据（更可控） #

我个人更推荐先手动统计每个年份、每个状态的计数，这样后续绘图逻辑更清晰，也不容易出问题：

library(ggplot2)
library(dplyr)

# 你的原始数据
df <- data.frame(Status = c(rep("Close", 20),rep("Open", 30)), 
                 Year = sample(c(2012, 2013, 2014, 2015, 2016), 50, replace = TRUE))

# 统计每个年份下各状态的数量
df_count <- df %>%
  count(Year, Status)

# 绘制重叠面积图
ggplot(df_count, aes(x = Year, y = n, fill = Status)) +
  geom_area(position = "identity", alpha = 0.5, stat = "identity") +
  scale_x_continuous(breaks = 2012:2016) # 强制显示所有年份刻度

方案2：直接修改原始代码 #

如果你不想额外处理数据，也可以直接在你的代码里添加两个参数：

library(ggplot2)
df <- data.frame(Status = c(rep("Close", 20),rep("Open", 30)), Year = sample(c(2012, 2013, 2014, 2015, 2016), 50, replace = TRUE))

ggplot(df, aes(x = Year, fill = Status)) + 
  geom_area(stat = 'bin', binwidth = 1, position = "identity", alpha = 0.5) +
  scale_x_continuous(breaks = 2012:2016)

关键参数说明 #

• position = "identity"：这个参数是核心，它告诉ggplot不要堆叠面积，而是让不同类别的图层直接重叠摆放
• alpha = 0.5：设置图层透明度，这样重叠的区域不会被完全遮挡，能清晰看到两个状态的数量对比，你可以根据喜好调整透明度（比如0.3~0.7都很合适）

这样修改后，就能得到你想要的、用于对比各年份状态的重叠面积图啦～

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