how to remove NA in summarize_all to summarize mutliple col at the same time?

Question

I have a dataframe like this and want to summarize the mean of every col ignoring NA using dplyr:

df= data.frame('var1'=sample(10,3),'var2'=sample(10,3), 'var3'=c(NA, NA,1), 'var4'=c(2,NA,6))
df %>% summarise_all(mean)

however, this will return NA in col 3 and 4. How can I pass in na.rm=T?

Answer 1

> df %>% summarise_each(funs(mean(., na.rm = TRUE)))
  var1 var2 var3 var4
1    5    5    1    4