Суммирование нескольких столбцов данных при исключении одного

Question

У меня есть датафрейм, который выглядит следующим образом

CODE  Bank1 Bank2 Bank3
10    1000  2000 4000
20    100   200  400
30    10    20   40
I want to add a new column with the totals by code, like this:
 CODE  Totals
  10   7000
  20   700
  30   70

Я уже сделал это с циклом, но для его выполнения требуется время. Я попробовал это:

base%>%mutate(totales=rowSum(.[2:4)) but it tells me that it can't the function rowSum, what do you suggest?

Answer 1

Вопрос с rowSum, Так должно быть rowSums

library(tidyverse)
base %>% 
   mutate(Total=rowSums(.[2:4])) %>%
   select(CODE, Totals)

---

Или использовать transmute

base %>%
    transmute(CODE, Total = rowSums(.[2:4]))

---

Это также может быть сделано с reduce

base %>%
     transmute(CODE, Total = reduce(.[2:4], `+`))