在dplyr中使用summarize_all並一起匯總

Question

有沒有辦法在dplyr鏈中將summarize_all和summaryrize語句組合在一起？ 像這樣的東西：

library(dplyr)

data(mtcars)

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

但當然這不起作用，因為它試圖總結一個總結。

預期結果是單個data.frame由cyl分組，每列按平均值匯總，以及由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 # Groups: cyl [?] cyl n mpg disp hp drat wt qsec vs am gear carb <dbl> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> 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 183. 122. 3.59 3.12 18.0 0.571 0.429 3.86 3.43 3 8. 14 15.1 353. 209. 3.23 4.00 16.8 0. 0.143 3.29 3.50