计算数据帧的一列中的所有NA值

我希望生成一个采用数据帧的表,计算每列中的所有NA值,然后返回另一个显示该计数的数据帧.我更喜欢在这里使用dplyr工具.我到目前为止:

library(dplyr)
airquality %>% 
  group_by(Month) %>%
  summarise_each(funs(sum(. == 41, na.rm = TRUE)))

这将返回一个计算所有41个的表.但如果我将它修改为NA就像这样:

airquality %>% 
  group_by(Month) %>%
  summarise_each(funs(sum(. == "NA")))

这不会产生所需的输出(如上所述).关于如何生成一个计算每列中所有NA值的表的任何想法？

提前致谢

试试这个:

airquality %>% group_by(Month) %>%   summarise_each(funs(sum(is.na(.))))