r - 使用 geom_bar() 来堆叠加起来的值？

Question

我在 R 中有一个数据框，如下所示：

        Month numFlights numDelays  onTime
1  2000-01-01    7520584   1299743 6220841
2  2000-02-01    6949127   1223397 5725730
3  2000-03-01    7808080   1390796 6417284
4  2000-04-01    7534239   1178425 6355814
5  2000-05-01    7720013   1236135 6483878
6  2000-06-01    7727349   1615408 6111941
7  2000-07-01    8000680   1652590 6348090
8  2000-08-01    7990440   1481498 6508942
9  2000-09-01    6811541    875381 5936160
10 2000-10-01    7026150   1046749 5979401
11 2000-11-01    6689783    987175 5702608
12 2000-12-01    6895454   1535196 5360258

我想要做的是创建一个条形图，其中每个月（在 x 轴上），条形图达到延误航班的数量 + 准时航班的数量。我尝试使用示例弄清楚如何做到这一点

qplot(factor(cyl), data=mtcars, geom="bar", fill=factor(gear))

但我的数据的格式与 mtcars 不同。而且我不能只使用 alpha 值，因为我想最终添加取消的航班。

我知道有些问题与这个问题非常相似，但不足以让我解决（这个问题几乎相同，但我还不知道如何操作 facet_grid。）有什么想法吗？

谢谢！

Answer 1

例如，您可以这样做：

library(reshape2)
dat.m <- melt(dat,id.vars='Month',measure.vars=c('numDelays','onTime'))

library(ggplot2)
library(scales)

ggplot(dat.m) +
    geom_bar(aes(Month,value,fill=variable))+
    scale_y_continuous(labels = comma) +
    coord_flip() + 
    theme_bw()