在dplyr中同时使用summarize_all和summarize

Question

有没有办法在dplyr链中将summarize_all和汇总语句组合在一起？如下所示：

library(dplyr)

data(mtcars)

mtcars %>%
  group_by(cyl) %>%
  summarize_all(funs(mean(., na.rm=TRUE))) %>%
  summarize(n = n())

但这当然不起作用，因为它试图总结一个摘要。

预期结果是按cyl分组的单个data.frame，每列按平均值汇总，观察次数按cyl计数。我可以通过使用bind_cols组合两个单独的摘要语句来实现这一点，但是有没有更好的方法呢？

谢谢

Answer 1

我认为我们可以在这里使用add_count：

library(dplyr)

mtcars %>% 
  add_count(cyl) %>% 
  group_by(cyl, n) %>% 
  summarise_all(.funs = mean, na.rm = TRUE)

A tibble: 3 x 12 #组: cyl cyl n mpg disp hp drat wt qsec vs am齿轮盒1 4.11 26.7 105。82.6 4.07 2.29 19.1 0.909 0.727 4.09 1.55 2 6.7 19.7 183122.3.59 3.12 18.0 0.571 0.429 3.86 3.43 3 8. 14 15.1 353209。3.23 4.00 16.8 0.0.143 3.29 3.50