R如何计算现有行的总和以添加新的数据行

发布于02月28日

如何在comb_df 中添加一个新的Category 在那里，这个新的价值 newcat是总和

Category = New + Category = Old Jan 2014

Category = c("New")
value = c(4,7,6)
Date= c ("Jan 2014", "Feb 2014", "Mar 2014")
#NonDaily = c(4, 7,6 ,8,9,10)

df1 <- data.frame(Category, Date,value,  check.names = FALSE)

Category = c("Old")
value = c(1,2,4)
Date= c ("Jan 2014", "Feb 2014", "Mar 2014")
df2 <- data.frame(Category,Date, value,check.names = FALSE)

comb_df <- rbind(df1,df2)

  Category     Date     value
1      New    Jan 2014     4
2      New    Feb 2014     7
3      New    Mar 2014     6
4      Old    Jan 2014     1
5      Old    Feb 2014     2
6      Old    Mar 2014     4

Expected Outcome

newcat = Category = New + Category = Old Jan 2014

  Category     Date     value  
1      New    Jan 2014     4    
2      New    Feb 2014     7    
3      New    Mar 2014     6     
4      Old    Jan 2014     1
5      Old    Feb 2014     2
6      Old    Mar 2014     4
7   newcat    Jan 2014     5
8   newcat    Feb 2014     9
9   newcat    Mar 2014     10

推荐答案

  library(dplyr)
  comb_df %>% 
    add_row(Category = "newcat",
            comb_df %>% 
              summarise(value = sum(value), .by = "Date")
            )
  Category     Date value
1      New Jan 2014     4
2      New Feb 2014     7
3      New Mar 2014     6
4      Old Jan 2014     1
5      Old Feb 2014     2
6      Old Mar 2014     4
7   newcat Jan 2014     5
8   newcat Feb 2014     9
9   newcat Mar 2014    10

基地R

rbind(comb_df, data.frame(Category = "newcat", aggregate(value ~ Date, FUN = sum, data = comb_df)))
  Category     Date value
1      New Jan 2014     4
2      New Feb 2014     7
3      New Mar 2014     6
4      Old Jan 2014     1
5      Old Feb 2014     2
6      Old Mar 2014     4
7   newcat Feb 2014     9
8   newcat Jan 2014     5
9   newcat Mar 2014    10