Incorporating na.rm=TRUE into Summarise_Each for Multiple Functions in dplyr

Question

So I have a dplyr table movie_info_comb from which I am calculating various statistics on one column metascore. Here is the code:

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

How do incorporate na.rm=TRUE? I've only seen examples for which one statistic is being calculated and I'd hate to have to repeat this 5 times (one for each function.

Thanks in advance.

Answer 1

You can do this with lazy evaluation

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)