使用 dplyr 获取基本统计数据（最小值、平均值、最大值、标准差）？

Question

I have a basic dataframe:

a = c(1,4,3,5)
b = c(3,6,3,11)

mydata = data.frame(a,b)

I would like to obtain the same dataframe (two columns a and b), but the basic statistics as lines.

Is there a dplyr command for this?

Answer 1

It may be better to have the data in 'long' format and then do the summary

library(dplyr)
library(tidyr)
mydata  %>%
      pivot_longer(everything()) %>%
      group_by(name) %>%
       summarise_at(vars(value), list(Min = min, Mean = mean, Max = max, Sd = sd))
# A tibble: 2 x 5
#  name    Min  Mean   Max    Sd
#  <chr> <dbl> <dbl> <dbl> <dbl>
#1 a         1  3.25     5  1.71
#2 b         3  5.75    11  3.77

Answer 2

We can use sapply :

sapply(mydata, summary)

#>            a     b
#> Min.    1.00  3.00
#> 1st Qu. 2.50  3.00
#> Median  3.50  4.50
#> Mean    3.25  5.75
#> 3rd Qu. 4.25  7.25
#> Max.    5.00 11.00 

or if you don't want the quartiles:

sapply(mydata, function(x) list(Min = min(x), Mean = mean(x), 
                                Max = max(x), Sd = sd(x)))

A tidyverse solution would be possible using purrr::map :

library(purrr)

mydata %>% 
    map(~summary(.)) %>% 
    rbind.data.frame