用两个变量制作面积图

Question

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

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()

但这只是 returns 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()

Making Area Chart with Two Variables