将系列行添加到ggplot R中的条形图

Question

有没有办法将series lines添加到由Rg中的ggplot创建的堆积条形图中？我在文档中四处查看 - 无济于事。

Answer 1

如果我理解你的要求是正确的，这里有一个例子，告诉你如何使用mtcars数据集做这样的事情。这使用dplyr和ggplot2

library(dplyr)
library(ggplot2)

## Calculate 'y' for each cyl/vs pair
(mtcars_summary <-
     mtcars                        %>%
     arrange(cyl, vs)              %>%
     group_by(cyl, vs)             %>%
     summarise(count = n())        %>% # Count per cyl/vs pair
     group_by(cyl)                 %>% # Here to be explicit, but can be left out.
     mutate(count = cumsum(count)) %>% # Calculate 'y' for each cyl/vs pair
     ungroup)

##     cyl    vs count
##   (dbl) (dbl) (int)
## 1     4     0     1
## 2     4     1    11
## 3     6     0     3
## 4     6     1     7
## 5     8     0    14

ggplot(mtcars, aes(cyl, fill = factor(vs))) +
    geom_bar() +
    geom_line(aes(cyl, count), data = mtcars_summary) +
    ggtitle('Data: mtcars')