Efficiently sum across multiple columns in R

by

Here’s a solution using the tidyverse. You can extend it to as many columns as you like using the select() function to select the appropriate columns within a mutate(). 

library(tidyverse)

a<-as.data.frame(c(2000:2005))
a$Col1<-c(1:6)
a$Col2<-seq(2,12,2)

colnames(a)<-c("year","Col1","Col2")

for (i in 1:2){
    a[[paste("Var_", i, sep="")]]<-i*a[[paste("Col", i, sep="")]]
}
a
#>   year Col1 Col2 Var_1 Var_2
#> 1 2000    1    2     1     4
#> 2 2001    2    4     2     8
#> 3 2002    3    6     3    12
#> 4 2003    4    8     4    16
#> 5 2004    5   10     5    20
#> 6 2005    6   12     6    24

# Tidyverse solution
a %>%
    mutate(Total = select(., Var_1:Var_2) %>% rowSums(na.rm = TRUE))
#>   year Col1 Col2 Var_1 Var_2 Total
#> 1 2000    1    2     1     4     5
#> 2 2001    2    4     2     8    10
#> 3 2002    3    6     3    12    15
#> 4 2003    4    8     4    16    20
#> 5 2004    5   10     5    20    25
#> 6 2005    6   12     6    24    30

Created on 2019-01-01 by the reprex package (v0.2.1)

More Related Contents:

  1. Sum by two variables
  2. Row-wise sum for select columns while ignoring NAs [closed]
  3. ignore NA in dplyr row sum
  4. Sum every nth points
  5. Divide each value by the sum of values by group
  6. How to reshape data from long to wide format
  7. Linear Regression and group by in R
  8. Position geom_text on dodged barplot
  9. How to assign from a function which returns more than one value?
  10. Increment by 1 for every change in column
  11. Usage of `…` (three-dots or dot-dot-dot) in functions [duplicate]
  12. combining two data frames of different lengths [closed]
  13. Unable to update R packages in default library on Windows 7
  14. Can I replace NAs when joining two data frames with dplyr?
  15. Calculate cumsum() while ignoring NA values
  16. Add an index (numeric ID) column to large data frame [duplicate]
  17. Consolidate duplicate rows
  18. Efficient row-wise operations on a data.table
  19. is it possible to redirect console output to a variable?
  20. Using column names as function arguments
  21. Counting non NAs in a data frame; getting answer as a vector
  22. R: eval(parse(…)) is often suboptimal
  23. Identify records in data frame A not contained in data frame B [closed]
  24. Replace value with the name of its respective column
  25. How to increase the size of points in legend of ggplot2? [duplicate]
  26. Creating a named list from two vectors (names, values)
  27. Are there global variables in R Shiny?
  28. Shifting a column down by one
  29. How to change stacking order in stacked bar chart in R?
  30. How can I count the number of NAs per group?

Leave a Comment