R 使用ggplot绘制两个独立因素的总和

使用以下数据，我需要绘制“输入”和“输出”因子的累积曲线

我得到了我所期望的：

但是，当我尝试将ggplot2用于

ggplot(peryear,aes(x=years,y=cumsum(count),color=places)) + geom_line()+geom_point()

我搞错了以下情节：

我认为这个图是错误的，因为两个地方的曲线都达到了大于100的值，而对于单个图，它们达到了70左右

---

如何使用ggplot2绘制数据的累积曲线？

最后一个图形接近您想要的曲线，但累积曲线似乎彼此太接近。这里有一种方法：

ggplot() + geom_line(aes(x=years,y=cumsum(count),colour='red'),peryear %>% filter(places=='in')) +
    geom_line(aes(x=years,y=cumsum(count), colour='navy'),peryear %>% filter(places=='out')) +
    scale_colour_discrete(name  = 'places',
                  labels=c("in", "out"))

---

最后一张图与您想要的很接近，但累积和线似乎彼此太接近。这里有一种方法：

ggplot() + geom_line(aes(x=years,y=cumsum(count),colour='red'),peryear %>% filter(places=='in')) +
    geom_line(aes(x=years,y=cumsum(count), colour='navy'),peryear %>% filter(places=='out')) +
    scale_colour_discrete(name  = 'places',
                  labels=c("in", "out"))

---

我回答了，但后来我意识到我不确定你在找什么。前两个图不是

cumsum

，第三个可能是，那么它到底有什么问题？

？stat\u function（）

在这里可能很有用前两个图绝对不是累积数-您只是在绘制计数，而不是它们的累积数：每个ggplot语句都有审美aes（x=年，y=计数）.第三个绘图在我看来像是一个累积的总和。有什么问题吗？我现在已经修复了第一个和第二个绘图。我回答了，但后来我意识到我不确定您要找的是什么。前两个绘图不是

cumsum

，第三个可能是，那么它到底出了什么问题？

？stat\u function（）

在这里可能很有用前两个绘图绝对不是累积和-您只是绘制计数，而不是它们的累积和：每个ggplot语句都有审美aes（x=年，y=计数）。第三个绘图在我看来像是累积和。有什么问题吗？我现在已经修复了第一个和第二个绘图。

ggplot() + geom_line(aes(x=years,y=cumsum(count),colour='red'),peryear %>% filter(places=='in')) +
    geom_line(aes(x=years,y=cumsum(count), colour='navy'),peryear %>% filter(places=='out')) +
    scale_colour_discrete(name  = 'places',
                  labels=c("in", "out"))