R语言 去掉NA求均值

数据里面有很多NA，去掉NA再对每列求均值怎么求呢？

 

这里用到的是dyplr包 

a <- data.frame(a = c(1,2,NA,3),b = c(1,3,4,5),d=c(NA,1,2,3))
a %>%
  summarise(mean_mpg = mean(a, na.rm=T),mean_b = mean(b, na.rm = T), mean_d = mean(d, na.rm = T))

> a
   a b  d
1  1 1 NA
2  2 3  1
3 NA 4  2
4  3 5  3

这里得到每个变量去掉NA 之后的均值。