ggplot查找所有组的总和并绘制为线

Question

我有一个看起来像这样的数据

mapview.delegate = self

创建一个图表：

Group   x    y
 A      2    30
 B      2    21
 C      2    22
 A      3    15
 B      3    18
 C      3    5   
 A      4    14
 B      4    29
 C      4    46 

我正在尝试添加第四行，每个X都有一个A + B + C的总和。我已经尝试了this但它增加了5行，而不是一行总和。我希望gg <- ggplot(mydata, aes(x=x, y=y, fill=Group, group=Group))+ geom_line(data =mydata, aes(x=x, y=y,colour=Group), stat="identity", size=1.5) plot(gg) 时的行y=73，x=2时的y=38以及x=3时的y=89。

代码：

x=4

Answer 1

一种方法是生成一个变量，该变量通过y x dplyr和group_by将mutate的所有值加x - 功能。然后，您可以生成绘图并添加第二行geom，以显示library(tidyverse) mydata %>% group_by(x) %>% mutate(sum.y = sum(y)) %>% ggplot(aes(x=x, y=y, color=Group))+ geom_line(size=1.5) + geom_line(aes(y = sum.y), color = "black") 特定的总和。

stat = "identity"

请注意，我通过删除美学中的冗余代码geom_line data = mydata以及所有{{1}}规范来更改代码。这些根本不是必需的。