用两个变量制作面积图

Question

我有2018年波士顿红袜队胜利/失败记录的数据集，其开始像是：

<form action="process/home.php" method="post">
        <input type="text" name="userfrom" value="<?php echo htmlspecialchars($username); ?>"/>
        <input type="submit" onclick="show(<?php echo $userid ; ?>, <?php echo 
 $_SESSION['id']; ?>)" value="Add Friend"/>
    </form>

我想将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的{​​{1}}对比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()