R ggplot2：为每个x处的组值总和添加行

假设我在Stack Overflow中收集帖子，并将它们分类为N个类别。我的目标是绘制每天的N百分比，并与每天的帖子总数成一条直线

为了玩，我将使用一个玩具数据框。我可以绘制每天每个类别的百分比：

data(beav1)
beav1$day <- as.factor(beav1$day)
beav1[beav1$day==346,]$time <- 1:sum(beav1$day==346)
beav1[beav1$day==347,]$time <- 1:sum(beav1$day==347)
beav1 <- filter(beav1, time<23)
ggplot(beav1, aes(x=time, y=temp, group=day, fill=day, color=day)) + 
  geom_line()

---

好的，请注意，

group

、

fill

和

color

不在

ggplot

中，而是在

geom\u line

中，这样您就可以使用

stat\u summary

，而无需重新定义组

ggplot(beav1, aes(x=time, y=temp)) + 
    geom_line(aes(group=day, fill=day, color=day))+
    stat_summary(fun.y = mean, na.rm = TRUE, group = 3, color = 'black', geom ='line')

---

如果你想要总数，只需放置

fun.y=sum

链接帖子的可能副本要求“每组”的意思，而我要求的是总体意思（我想要一行，而不是N）如果我理解你想要每组的温度和总数，可能的副本？您可以尝试

ggplot（beav1，aes（x=time，y=temp，group=day，fill=day，color=day））+stat\u summary（fun.y=sum，na.rm=TRUE，geom='line'）

谢谢Mamoun。但是你的线没有画出温度的总和（或平均值），是吗？就是这样！因此，这是一个将填充和颜色放在正确位置的问题！谢谢这是伟大的，但新的'总'行没有出现在传奇。如何添加？

ggplot(beav1, aes(x=time, y=temp)) + 
    geom_line(aes(group=day, fill=day, color=day))+
    stat_summary(fun.y = mean, na.rm = TRUE, group = 3, color = 'black', geom ='line')