How to get summary statistics by group

1. tapply

I’ll put in my two cents for tapply().

tapply(df$dt, df$group, summary)

You could write a custom function with the specific statistics you want or format the results:

tapply(df$dt, df$group,
  function(x) format(summary(x), scientific = TRUE))
$A
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"5.900e+01" "5.975e+01" "6.100e+01" "6.100e+01" "6.225e+01" "6.300e+01" 

$B
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"6.300e+01" "6.425e+01" "6.550e+01" "6.600e+01" "6.675e+01" "7.100e+01" 

$C
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"6.600e+01" "6.725e+01" "6.800e+01" "6.800e+01" "6.800e+01" "7.100e+01" 

$D
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"5.600e+01" "5.975e+01" "6.150e+01" "6.100e+01" "6.300e+01" "6.400e+01"

2. data.table

The data.table package offers a lot of helpful and fast tools for these types of operation:

library(data.table)
setDT(df)
> df[, as.list(summary(dt)), by = group]
   group Min. 1st Qu. Median Mean 3rd Qu. Max.
1:     A   59   59.75   61.0   61   62.25   63
2:     B   63   64.25   65.5   66   66.75   71
3:     C   66   67.25   68.0   68   68.00   71
4:     D   56   59.75   61.5   61   63.00   641. tapply
I'll put in my two cents for tapply().

tapply(df$dt, df$group, summary)
You could write a custom function with the specific statistics you want or format the results:

tapply(df$dt, df$group,
  function(x) format(summary(x), scientific = TRUE))
$A
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"5.900e+01" "5.975e+01" "6.100e+01" "6.100e+01" "6.225e+01" "6.300e+01" 

$B
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"6.300e+01" "6.425e+01" "6.550e+01" "6.600e+01" "6.675e+01" "7.100e+01" 

$C
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"6.600e+01" "6.725e+01" "6.800e+01" "6.800e+01" "6.800e+01" "7.100e+01" 

$D
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"5.600e+01" "5.975e+01" "6.150e+01" "6.100e+01" "6.300e+01" "6.400e+01"
2. data.table
The data.table package offers a lot of helpful and fast tools for these types of operation:

library(data.table)
setDT(df)
> df[, as.list(summary(dt)), by = group]
   group Min. 1st Qu. Median Mean 3rd Qu. Max.
1:     A   59   59.75   61.0   61   62.25   63
2:     B   63   64.25   65.5   66   66.75   71
3:     C   66   67.25   68.0   68   68.00   71
4:     D   56   59.75   61.5   61   63.00   641. tapply
I'll put in my two cents for tapply().

tapply(df$dt, df$group, summary)
You could write a custom function with the specific statistics you want or format the results:

tapply(df$dt, df$group,
  function(x) format(summary(x), scientific = TRUE))
$A
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"5.900e+01" "5.975e+01" "6.100e+01" "6.100e+01" "6.225e+01" "6.300e+01" 

$B
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"6.300e+01" "6.425e+01" "6.550e+01" "6.600e+01" "6.675e+01" "7.100e+01" 

$C
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"6.600e+01" "6.725e+01" "6.800e+01" "6.800e+01" "6.800e+01" "7.100e+01" 

$D
       Min.     1st Qu.      Median        Mean     3rd Qu.        Max. 
"5.600e+01" "5.975e+01" "6.150e+01" "6.100e+01" "6.300e+01" "6.400e+01"
2. data.table
The data.table package offers a lot of helpful and fast tools for these types of operation:

library(data.table)
setDT(df)
> df[, as.list(summary(dt)), by = group]
   group Min. 1st Qu. Median Mean 3rd Qu. Max.
1:     A   59   59.75   61.0   61   62.25   63
2:     B   63   64.25   65.5   66   66.75   71
3:     C   66   67.25   68.0   68   68.00   71
4:     D   56   59.75   61.5   61   63.00   64

Related Posts:

  1. R Hex to RGB converter
  2. Error in file(file, “rt”) : cannot open the connection [duplicate]
  3. Error in : object of type ‘closure’ is not subsettable
  4. Could not find function “%<>%” with dplyr loaded
  5. Interpreting “condition has length > 1” warning from `if` function
  6. How to coerce a list object to type ‘double’
  7. $ operator is invalid for atomic vectors for dataframe R
  8. Plotting with ggplot2: “Error: Discrete value supplied to continuous scale” on categorical y-axis
  9. ggplot2 error : Discrete value supplied to continuous scale
  10. ggplot2 line chart gives “geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?”
  11. ggplot2 line chart gives “geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?”
  12. How to open CSV file in R when R says “no such file or directory”?
  13. Error: could not find function “%>%”
  14. R programming: How do I get Euler’s number?
  15. ‘x’ and ‘y’ lengths differ ERROR when plotting
  16. What are the “standard unambiguous date” formats for string-to-date conversion in R?
  17. ‘x’ and ‘y’ lengths differ ERROR when plotting
  18. What are the “standard unambiguous date” formats for string-to-date conversion in R?
  19. Difference between paste() and paste0()
  20. Remove duplicated rows
  21. Error in ggplot.data.frame : Mapping should be created with aes or aes_string
  22. Error in Confusion Matrix : the data and reference factors must have the same number of levels
  23. Error in plot.window(…) : need finite ‘xlim’ values
  24. Error in colMeans(x, na.rm = TRUE) : ‘x’ must be numeric, What should I do in this situation?
  25. Editing legend (text) labels in ggplot
  26. case_when in mutate pipe
  27. Principal Components Analysis:Error in colMeans(x, na.rm = TRUE) : ‘x’ must be numeric
  28. dim(X) must have a positive length when applying function in data frame
  29. Extract year from date
  30. Persistent invalid graphics state error when using ggplot2
  31. incorrect number of dimensions and incorrect number of subscripts in array
  32. What does %*% mean in R [duplicate]
  33. Why am I getting “algorithm did not converge” and “fitted prob numerically 0 or 1” warnings with glm?
  34. How to debug “contrasts can be applied only to factors with 2 or more levels” error?
  35. Error in lm.fit(x, y, offset = offset, singular.ok = singular.ok, …) : NA/NaN/Inf in ‘y’, tried every possible way
  36. R t-test Grouping factor must have exactly 2 levels error
  37. What does c do in R?
  38. Opposite of %in%: exclude rows with values specified in a vector
  39. Understanding the order() function
  40. Using Caret Package but Getting Error in library(e1071)
  41. Subscript out of bounds – general definition and solution?
  42. Error in lis[[i]] : attempt to select less than one element
  43. Plot a line graph, error in xy.coords(x, y, xlabel, ylabel, log) : ‘x’ and ‘y’ lengths differ
  44. How to compute weighted mean in R?
  45. Error: unexpected symbol/input/string constant/numeric constant/SPECIAL in my code
  46. How to count the number of observations in R like Stata command count
  47. Remove all of x axis labels in ggplot
  48. Sum rows in data.frame or matrix
  49. Error in table “all arguments must have the same length”
  50. Rename multiple columns by names
  51. What is the difference between rm() and rm(list=ls())?
  52. Remove rows with all or some NAs (missing values) in data.frame
  53. How to not run an example using roxygen2?
  54. How do you create vectors with specific intervals in R?
  55. Linear model function lm() error: NA/NaN/Inf in foreign function call (arg 1)
  56. Increase number of axis ticks
  57. Remove rows with all or some NAs (missing values) in data.frame
  58. Converting data frame column from character to numeric
  59. How to assign colors to categorical variables in ggplot2 that have stable mapping?
  60. Singularity in backsolve at level 0, block 1 in LME model
  61. Nested ifelse statement
  62. Is there a dictionary functionality in R
  63. Plot two graphs in same plot in R
  64. How to overcome error:”attempt to set ‘colnames’ on an object with less than two dimension” in xts object
  65. ggplot2 manually specifying colour with geom_line
  66. remove all variables except functions
  67. How to update a package in R?
  68. Error: Invalid input: date_trans works with objects of class Date only
  69. Run R script from command line
  70. What causes an R script to get Killed?
  71. What’s the difference between facet_wrap() and facet_grid() in ggplot2?
  72. ggplot2, facet_grid, free scales?
  73. dplyr mutate with conditional values
  74. How do I install an R package from source?
  75. How can I convert Json to data frame in R
  76. lmer error: grouping factor must be < number of observations
  77. R Error (from NA’s to 0): duplicate subscripts for column in Data Frame
  78. incorrect number of subscripts on matrix in R
  79. Error in rbind(deparse.level, …) : numbers of columns of arguments do not match R
  80. Creating box plot on exercise
  81. What is the meaning of the dollar sign “$” in R function()?
  82. How to split data into training/testing sets using sample function
  83. How to sort a data frame by alphabetic order of a character variable in R?
  84. Error in na.fail.default(as.ts(x)) : missing values in object in time series forecasting
  85. Argument “No” is missing, with no default
  86. R apply function with multiple parameters
  87. Geometric Mean: is there a built-in?
  88. Error in na.fail.default: missing values in object – but no missing values
  89. Error: Invalid number of ‘breaks’ in R
  90. Convert the values in a column into row names in an existing data frame
  91. Deleting rows that are duplicated in one column based on the conditions of another column
  92. Replace all 0 values to NA
  93. The difference between bracket [ ] and double bracket [[ ]] for accessing the elements of a list or dataframe
  94. Merge error : negative length vectors are not allowed
  95. Error Error in storage.mode(x) <- "double" : 'list' object cannot be coerced to type 'double'
  96. why nrow(dataframe) and length(dataframe) in r give different results?
  97. Meaning of objects being masked by the global environment
  98. Subset and ggplot2
  99. Create a matrix of scatterplots (pairs() equivalent) in ggplot2
  100. cbind warnings : row names were found from a short variable and have been discarded

Leave a Comment