Создание диаграммы области с двумя переменными

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