r - 一次汇总多个变量一组

Question

有许多关于按一组或多组汇总多个变量的问题和解答(例如 Means multiple columns by multiple groups )。我不认为这是重复的。

这就是我想要做的:我想通过位移计算4个变量的平均值，然后通过马力计算这三个变量的平均值，然后很快。我不想想按vs、am、gear和carb分组> 同时(即，我不是简单地寻找 mydata %>% group_by(vs, am, gear, and carb) %>% summarise_if(...)。

如何通过位移计算一组变量的平均值，然后通过马力计算同一组变量的平均值等等，然后然后并排放在 table 上？

我试图想出一个可重现的例子，但没有。这是来自 mtcars 的小标题，它显示了我最终要寻找的内容(数据是虚构的):

tibble(Item = c("vs", "am" ,"gear", "carb"), 
   "Displacement (mean)"  = c(2.4, 1.4, 5.5, 1.3),
   "Horsepower (mean)" = c(155, 175, 300, 200))

Answer 1

也许使用purrr::map和一些rlang语法来实现类似的效果？

grps <- list("cyl", "vs")
map(setNames(grps, unlist(grps)), function(x)
mtcars %>%
    group_by(!!rlang::sym(x)) %>%
    summarise(mean.mpg = mean(mpg), mean.disp = mean(disp)) %>%
    rename(id.val = 1)) %>%
bind_rows(.id = "id")
## A tibble: 5 x 4
#  id    id.val mean.mpg mean.disp
#  <chr>  <dbl>    <dbl>     <dbl>
#1 cyl       4.     26.7      105.
#2 cyl       6.     19.7      183.
#3 cyl       8.     15.1      353.
#4 vs        0.     16.6      307.
#5 vs        1.     24.6      132.