在dplyr中將na.rm = TRUE合並到Summarise_Each中以實現多個功能

Question

因此，我有一個dplyr表movie_info_comb，據此我可以在一個列metascore上計算各種統計信息。 這是代碼：

summarise_each_(movie_info_comb, funs(min,max,mean,sum,sd,median,IQR),"metascore")

如何合並na.rm = TRUE？ 我只看到了正在計算一個統計信息的示例，但我不希望重復執行5次（每個函數一次）。

提前致謝。

Answer 1

您可以通過懶惰的評估來做到這一點

library(lazyeval)

na.rm = function(FUN_string)
  lazy(FUN(., na.rm = TRUE)) %>%
    interp(FUN = FUN_string %>% as.name)

na.rm.apply = function(FUN_strings)
  FUN_strings %>% 
  lapply(na.rm) %>%
  setNames(FUN_strings)

mtcars %>%
  select(mpg) %>%
  summarize_each(
    c("min","max","mean","sum","sd","median","IQR") %>%
      na.rm.apply)