R:如何在分组数据上共同使用汇总和执行功能

Question

在整理中，总结可用于具有单个有价值函数的分组数据。例如

mtcars %>% group_by(cyl) %>% summarise(max(cos(mpg)))

如果该函数为矢量值，则如果我没有错，建议使用。例如，do命令适用于矢量有价值的函数"描述" phych软件包：

 library(psych)
 mtcars %>% group_by(cyl) %>% do(describe(.$mpg))

如何同时将单值和矢量值函数应用于分组数据？例如，如何将max(cos(cos(((同时应用于mpg列，并将输出作为一个dataFrame？

Answer 1

我们可以将describe的输出放在list中，然后将unnest

放在CC_2中

library(tidyverse)
mtcars %>% 
    group_by(cyl) %>%
    summarise(Cosmpg = max(cos(mpg)), list(describe(mpg))) %>%
    unnest
# A tibble: 3 x 15
#    cyl Cosmpg  vars     n  mean    sd median trimmed   mad   min   max range   skew kurtosis    se
#  <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl>    <dbl> <dbl>
#1  4.00  0.743  1.00 11.0   26.7  4.51   26.0    26.4  6.52  21.4  33.9 12.5   0.259   -1.65  1.36 
#2  6.00  0.939  1.00  7.00  19.7  1.45   19.7    19.7  1.93  17.8  21.4  3.60 -0.158   -1.91  0.549
#3  8.00  0.989  1.00 14.0   15.1  2.56   15.2    15.2  1.56  10.4  19.2  8.80 -0.363   -0.566 0.684