Apply several summary functions (sum, mean, etc.) on several variables by group in one call

by

You can do it all in one step and get proper labeling:

> aggregate(. ~ id1+id2, data = x, FUN = function(x) c(mn = mean(x), n = length(x) ) )
#   id1 id2 val1.mn val1.n val2.mn val2.n
# 1   a   x     1.5    2.0     6.5    2.0
# 2   b   x     2.0    2.0     8.0    2.0
# 3   a   y     3.5    2.0     7.0    2.0
# 4   b   y     3.0    2.0     6.0    2.0

This creates a dataframe with two id columns and two matrix columns:

str( aggregate(. ~ id1+id2, data = x, FUN = function(x) c(mn = mean(x), n = length(x) ) ) )
'data.frame':   4 obs. of  4 variables:
 $ id1 : Factor w/ 2 levels "a","b": 1 2 1 2
 $ id2 : Factor w/ 2 levels "x","y": 1 1 2 2
 $ val1: num [1:4, 1:2] 1.5 2 3.5 3 2 2 2 2
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr  "mn" "n"
 $ val2: num [1:4, 1:2] 6.5 8 7 6 2 2 2 2
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr  "mn" "n"

As pointed out by @lord.garbage below, this can be converted to a dataframe with “simple” columns by using do.call(data.frame, ...)

str( do.call(data.frame, aggregate(. ~ id1+id2, data = x, FUN = function(x) c(mn = mean(x), n = length(x) ) ) ) 
    )
'data.frame':   4 obs. of  6 variables:
 $ id1    : Factor w/ 2 levels "a","b": 1 2 1 2
 $ id2    : Factor w/ 2 levels "x","y": 1 1 2 2
 $ val1.mn: num  1.5 2 3.5 3
 $ val1.n : num  2 2 2 2
 $ val2.mn: num  6.5 8 7 6
 $ val2.n : num  2 2 2 2

This is the syntax for multiple variables on the LHS:

aggregate(cbind(val1, val2) ~ id1 + id2, data = x, FUN = function(x) c(mn = mean(x), n = length(x) ) )

More Related Contents:

  1. How to sum a variable by group
  2. Aggregate / summarize multiple variables per group (e.g. sum, mean)
  3. Collapse / concatenate / aggregate a column to a single comma separated string within each group
  4. Count number of rows within each group
  5. Count number of rows per group and add result to original data frame
  6. Apply several summary functions on several variables by group in one call
  7. Reshaping data.frame from wide to long format
  8. ggplot with 2 y axes on each side and different scales
  9. Quickly reading very large tables as dataframes
  10. Combine two data frames by rows (rbind) when they have different sets of columns
  11. Counting unique / distinct values by group in a data frame
  12. Summarizing multiple columns with dplyr? [duplicate]
  13. Formatting Decimal places in R
  14. ggplot2 line chart gives “geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?”
  15. How to name variables on the fly?
  16. Cleaning up factor levels (collapsing multiple levels/labels)
  17. Plot multiple columns on the same graph in R [duplicate]
  18. Concatenate a vector of strings/character
  19. Summarizing by subgroup percentage in R
  20. Collapsing rows where some are all NA, others are disjoint with some NAs
  21. Convert data.frame column format from character to factor
  22. Convert UNIX epoch to Date object
  23. Use variable names in functions of dplyr
  24. Access variable value where the name of variable is stored in a string
  25. Remove groups with less than three unique observations
  26. List distinct values in a vector in R
  27. Aggregate and reshape from long to wide
  28. Dollar sign before a variable
  29. How to find all functions in an R package?
  30. R sum a variable by two groups [duplicate]

Leave a Comment