sum_of_some_columns_per_row #R

sum_of_some_columns_per_row #R

# Calculate sum of different columns per row

id<-1:5
food<-c(1,4,3,2,1)
drink<-c(4,3,2,4,5)
names<-c("John", "Mick", "Paul","George", "Ringo")
books<-c(3,4,5,4,2)

data<-data.frame(id, food, drink,names, books )

data<-data %>% 
  mutate(total_sum = select(., food, drink, books) %>% rowSums(na.rm = TRUE)) %>% # variante 1 
  rowwise() %>% 
  mutate(total_sum2=sum(food, drink, books)) %>% # variante 2  
  ungroup() %>%  # variante 2 
  rowwise() %>% 
  mutate(total_sum3=sum(c_across(where(is.numeric)&!contains("id")&!contains("total")))) %>%  # a bit an awkward example of using c_across
  ungroup()

# see also: https://dplyr.tidyverse.org/dev/articles/rowwise.html#repeated-function-calls-1