r - 如何在ggplot2中制作累积层图

Question

我有一个类似于下面示例的数据:

library(dplyr)
nycflights13::flights %>% 
  mutate(date = as.Date(paste(day, month, year, sep = '-'), format = '%d-%m-%Y')) %>% 
  select(date, carrier, distance)

现在我需要构建一个包含每天距离总和的图，其中后续层将引用不同的承运人。我的意思是类似于

ggplot(diamonds, aes(x = price, fill = cut)) + geom_area(stat = "bin") 

但使用 sum 作为 stat。

我试过

nycflights13::flights %>% 
  mutate(date = as.Date(paste(day, month, year, sep = '-'), format = '%d-%m-%Y')) %>% 
  select(date, carrier, distance) %>% 
  ggplot() + 
  geom_area(aes(date, distance, fill = carrier, group = carrier), stat = 'sum')

但它并没有成功，导致

Error in f(...) : Aesthetics can not vary with a ribbon

使用 geom_bar 非常简单，但是有什么想法可以制作堆叠的 geom_area 图吗？

Answer 1

library(dplyr)
nycflights13::flights %>% 
  mutate(date = as.Date(paste(day, month, year, sep = '-'), 
                        format = '%d-%m-%Y')) %>% 
  select(date, carrier, distance) %>% 
  group_by(date, carrier) %>% 
  summarise(distance = sum(distance)) %>% 
  ggplot() + 
  geom_area(aes(date, distance, fill = carrier, 
                group = carrier), stat = 'identity')

应该可以解决问题。