制作带两个变量的面积图

Question

我有一个波士顿红袜队 2018 年输赢记录的数据集，开头如下：

Game,W/L,W,L
1,L,0,1
2,W,1,1
3,W,2,1
4,W,3,1
5,W,4,1
6,W,5,1
7,W,6,1
8,W,7,1
9,W,8,1

我想将其转换为堆叠面积图，比较 W 与 L 相对于 ggplot2 中的游戏，但我正在为如何设置而苦苦挣扎。我可以开始使用

rec = read.csv('redsox_record.csv')

ggplot(rec, aes(x=Game, y=W)) + geom_area()

但这只会返回W 的图表，我也不确定如何包含 L。

Answer 1

library(reshape2)
library(ggplot2)
rec <- melt(rec[, c(1, 3, 4)], id.vars = 'Game')
ggplot(rec, aes(x=Game, y=value, fill = variable)) + geom_area()