r中的堆叠条形图

我有这样一个数据框：

  app_id <- seq(1,10,1)
  approved <- c(0,1,1,2,1,0,1,2,1,0)
  week <- as.Date(c('2019-11-18','2019-11-18','2019-11-18','2019-11-25','2019-12-02','2019-12-02','2019-12-09','2019-12-09','2019-12-09','2019-12-09'))
  data <- data.frame(app_id,approved,week)

app\u id
看，这是否回答了您的问题？到目前为止你试过什么？ggplot文档有很多示例，并链接到tutorials@camille是的，我通过在
factor（）
中添加
levels=c（您喜欢的顺序）
来重置因子的顺序，非常感谢！如何在底部绘制
approved=1
？
ggplot（aes（周，累计值，填充系数（approved，levels=c（0,2,1））
；）
data %>%
    group_by(approved, week) %>%
    summarise(aggValue = n()) %>%
    ggplot(aes(week, aggValue, fill = factor(approved))) +
    geom_bar(stat = "identity")