将堆积条形图转换为堆积面积图

Question

我有一个带有以下代码的堆积条形图：

ggplot(data_frame, aes(x = year, y = percent, fill = reorder(type, desc(percent)), label = round(percent, digits=2))) +
  geom_bar(stat = "identity") +
  geom_text(size = 3, position = position_stack(vjust = 0.5))

我正在尝试使用以下代码将其变成堆积面积图：

ggplot(data_frame, aes(x=year, y=percent, fill=as.factor(type))) + 
    geom_area()

但是 plot 是空的或者不起作用。 有谁知道我在这里做错了什么？ 这是我第一次尝试创建堆积面积图。 先感谢您

我的dataframe如下：

structure(list(year = c(2012, 2013, 2013, 2014, 2014, 2015, 2015, 
2015, 2016, 2016, 2016, 2017, 2017, 2017, 2018, 2018, 2018, 2019, 
2019, 2019, 2020, 2020, 2020, 2021, 2021, 2021, 2022, 2022, 2022
), type = c("Blue", "Red", "Blue", "Red", "Blue", "Red", "Yellow", 
"Blue", "Red", "Yellow", "Blue", "Red", "Yellow", "Blue", "Red", 
"Yellow", "Blue", "Red", "Yellow", "Blue", "Red", "Yellow", "Blue", 
"Red", "Yellow", "Blue", "Red", "Yellow", "Blue"), percent = c(1, 
0.822493861837742, 0.177506138162258, 0.890831469712102, 0.109168530287897, 
0.813387070409725, 0.0497778071288365, 0.136835122461439, 0.864261238604485, 
0.036537301512893, 0.0992014598826223, 0.869551858365865, 0.0555953345546625, 
0.0748528070794728, 0.830539033602976, 0.075436440035225, 0.0940245263617988, 
0.775315022945149, 0.0633554986887996, 0.161329478366051, 0.601100639265675, 
0.254061406486953, 0.144837954247372, 0.630357987198663, 0.203272744842328, 
0.166369267959009, 0.660638396593096, 0.174442088167586, 0.164919515239318
)), row.names = c(NA, -29L), class = "data.frame")

Answer 1

有时geom_area会遇到麻烦，因为类别在每个步骤中的表示不一致。 （我假设在幕后，它不知道新出现的类别是否应该立即开始，或者它是否应该在前面的步骤中从零开始增加。我通常（总是？）想要后一种行为，但它不是默认值。）

一种快速解决方法是使用tidyr::complete来填充所有未表示的类型。

df |>
  tidyr::complete(year, type, fill = list(percent = 0)) |>
  ggplot(aes(x=year, y=percent, fill=as.factor(type))) +
  geom_area()

没有complete ：（我正在使用 ggplot2 v3.4.0）