对组合和单独的多个 group_by 变量进行汇总

我使用 dplyr 的 group_by 和汇总来获取每个 group_by 变量组合的平均值，但也想单独获取每个 group_by 变量的平均值。

例如，如果我跑

mtcars %>% 
  group_by(cyl, vs) %>% 
  summarise(new = mean(wt))

I get

    cyl    vs      new
  <dbl> <dbl>    <dbl>
     4     0 2.140000
     4     1 2.300300
     6     0 2.755000
     6     1 3.388750
     8     0 3.999214

但我想得到

    cyl    vs      new
  <dbl> <dbl>    <dbl>
     4     0 2.140000
     4     1 2.300300
     4    NA 2.285727
     6     0 2.755000
     6     1 3.388750
     6    NA 3.117143
     8     0 3.999214
    NA     0 3.688556
    NA     1 2.611286

IE。获取组合变量和单独变量的平均值

EditJaap 将其标记为重复并指出了我的方向使用聚合在一次调用中将多个函数应用于多个变量 https://stackoverflow.com/questions/12064202/using-aggregate-to-apply-several-functions-on-several-variables-in-one-call。我查看了 jaap 的答案，其中引用了 dplyr，但我看不出这如何回答我的问题？你说用summarise_each，但我仍然不明白如何使用它来单独获取每个变量组的平均值？抱歉，如果我很愚蠢......

这是一个使用的想法bind_rows,

library(dplyr)

mtcars %>% 
     group_by(cyl, vs) %>% 
     summarise(new = mean(wt)) %>% 
    bind_rows(., 
              mtcars %>% group_by(cyl) %>% summarise(new = mean(wt)) %>% mutate(vs = NA), 
              mtcars %>% group_by(vs) %>% summarise(new = mean(wt)) %>% mutate(cyl = NA)) %>% 
   arrange(cyl) %>% 
   ungroup()

# A tibble: 10 × 3
#     cyl    vs      new
#   <dbl> <dbl>    <dbl>
#1      4     0 2.140000
#2      4     1 2.300300
#3      4    NA 2.285727
#4      6     0 2.755000
#5      6     1 3.388750
#6      6    NA 3.117143
#7      8     0 3.999214
#8      8    NA 3.999214
#9     NA     0 3.688556
#10    NA     1 2.611286