dplyr – using column names as function arguments

by

This can work using the latest dplyr syntax (as can be seen on github):

library(dplyr)
library(rlang)
sumByColumn <- function(df, colName) {
  df %>%
    group_by(a) %>%
    summarize(tot = sum(!! sym(colName)))
}

sumByColumn(data, "b")
## A tibble: 2 x 2
#      a   tot
#  <int> <int>
#1     1    24
#2     2    27

And an alternative way of specifying b as a variable:

library(dplyr)
sumByColumn <- function(df, colName) {
  myenc <- enquo(colName)
  df %>%
    group_by(a) %>%
    summarize(tot = sum(!!myenc))
}

sumByColumn(data, b)
## A tibble: 2 x 2
#      a   tot
#  <int> <int>
#1     1    24
#2     2    27

More Related Contents:

  1. Gather multiple sets of columns
  2. How to get summary statistics by group
  3. Is there a dplyr equivalent to data.table::rleid?
  4. Replace NA with previous or next value, by group, using dplyr
  5. Filter rows which contain a certain string
  6. Calculate group mean, sum, or other summary stats. and assign column to original data
  7. Rolling mean (moving average) by group/id with dplyr
  8. Programming with dplyr using string as input
  9. Count number of rows by group using dplyr
  10. How to strsplit different number of strings in certain column by do function
  11. Pass a vector of variable names to arrange() in dplyr
  12. How to remove rows with any zero value
  13. Select columns based on string match – dplyr::select
  14. Delete columns/rows with more than x% missing
  15. How to aggregate a dataframe by week?
  16. adding default values to item x group pairs that don’t have a value (df %>% spread %>% gather seems strange)
  17. dplyr issues when using group_by(multiple variables)
  18. dplyr piping data – difference between `.` and `.x`
  19. dplyr mutate rowwise max of range of columns
  20. dplyr: lead() and lag() wrong when used with group_by()
  21. Reorder rows using custom order
  22. Difference between rbind() and bind_rows() in R
  23. Spreading a two column data frame with tidyr
  24. R dplyr rowwise mean or min and other methods?
  25. mutate with case_when and contains
  26. r cumsum per group in dplyr
  27. tidyverse – prefered way to turn a named vector into a data.frame/tibble
  28. How to pass column name as argument to function for dplyr verbs?
  29. How to use data.table within functions and loops?
  30. Override column types when importing data using readr::read_csv() when there are many columns

Leave a Comment