r - group_by 总计汇总值

Question

我有数据和图表，就像我在下面给出的示例一样。

我想要第三个“条件”，即给定年份和月份的条件 A 和条件 B 的总金额。我不知道该怎么做，因为 Condition 包含在 group_by 语句中。特别是，我希望能够将它绘制在与下面显示的相同的图上(因此每年都会有第三行显示总计)。

library(ggplot2)
library(dplyr)
data <- data.frame(Amount = sample(1:100, replace=T), 
               Condition = sample(c("A","B"), 100, replace=T),
               Year = sample(2015:2017, 100, replace=T),
               Month = sample(1:12, 100, replace=T))
dataGrouped <- data %>%
               group_by(Year, Month, Condition) %>%
               summarize(sumAmount = sum(Amount))
ggplot(dataGrouped, aes(x=Month, y=sumAmount, color=factor(Year), linetype=Condition)) + 
    geom_line(size=1) + scale_x_continuous(breaks = 1:12)

我考虑过先做一个 group_by(Year, Month)，然后添加一个 Total，但仍然不确定哪种方法最好(或者是否有更好的选择)。

Answer 1

这里有一个dplyr解决方案，按年和月汇总总计，然后将其绑定(bind)到条件值为“总计”的分组数据，这样ggplot() 将把它作为你情节中的一条新线。

library(ggplot2)
library(dplyr)

data <- data.frame(Amount = sample(1:100, replace=T), 
                   Condition = sample(c("A","B"), 100, replace=T),
                   Year = sample(2015:2017, 100, replace=T),
                   Month = sample(1:12, 100, replace=T))

dataGrouped <- data %>%
  group_by(Year, Month, Condition) %>%
  summarize(sumAmount = sum(Amount))

ggplot(dataGrouped, aes(x=Month, y=sumAmount, color=factor(Year), linetype=Condition)) + 
  geom_line(size=1) + scale_x_continuous(breaks = 1:12)

dataWithTotal <- data %>%
  group_by( Year, Month ) %>%
  summarize( sumAmount = sum(Amount) ) %>%
  mutate( Condition = 'Total' ) %>%
  ungroup() %>%
  rbind( ungroup(dataGrouped) ) %>%
  mutate( Condition = as.factor(Condition) )

ggplot(dataWithTotal, aes(x=Month, y=sumAmount, color=factor(Year), linetype=Condition)) + 
  geom_line(size=1) + scale_x_continuous(breaks = 1:12)