Сумма строк dplyr в выбранных строках

У меня есть следующие данные:

library(dplyr)
library(purrr)

 d <- data.frame(
  Type= c("d", "e", "d", "e"),
  "2000"= c(1, 5, 1, 5),
  "2001" = c(2, 5 , 6, 4),
  "2002" = c(8, 9, 6, 3))

Я хотел бы использовать rowsum и mutate для создания новой строки, которая представляет собой сумму «d», и другую строку, которая представляет собой сумму «e», чтобы данные выглядели так:

d2 <- data.frame(
Type= c("d", "e", "d", "e", "sum_of_d", "Sum_of_e"),
"2000"= c(1, 5, 1, 5, 2, 10),
"2001" = c(2, 5 , 6, 4, 8, 9),
"2002" = c(8, 9, 6, 3, 14, 12))

Я думаю, что код должен выглядеть примерно так:

d %>% 
 dplyr::mutate(sum_of_d = rowSums(d[1,3], na.rm = TRUE)) %>% 
 dplyr::mutate(sum_of_e = rowSums(d[2,4], na.rm = TRUE)) -> d2

однако это не совсем работает. Любые идеи?

Спасибо


r dplyr rowsum
person Mrmoleje    schedule 26.11.2018    source источник
comment
Я думаю, вам нужно: rowSums(.[c(1,3)], na.rm = TRUE) и rowSums(.[c(2,4)], na.rm = TRUE)?   -  person Jaap    schedule 26.11.2018

Ответы (1)


arrow_upward
4
arrow_downward

Вы ищете сумму по типу во всех других столбцах, так что...

library(dplyr)
d %>% 
   group_by(Type) %>% 
   summarise_all(sum) %>% 
   mutate(Type = paste0("sum_of_", Type)) %>% 
   rbind(d, .)

      Type X2000 X2001 X2002
1        d     1     2     8
2        e     5     5     9
3        d     1     6     6
4        e     5     4     3
5 sum_of_d     2     8    14
6 sum_of_e    10     9    12
person talat    schedule 26.11.2018
comment
LOL - я только что опубликовал точно такое же решение... - person iod; 26.11.2018
comment
Да, это прекрасно, спасибо - я раньше не использовал summarise_all, так что это будет действительно полезно - person Mrmoleje; 26.11.2018