[解決済み] data.frameで欠損値を報告するためのエレガントな方法

質問

これは、データフレームから欠損値を持つ変数を報告するために私が書いたコードの小さな部分です。 私はこれを行うには、よりエレガントな方法、おそらくdata.frameを返すものを考えてみてください、しかし、私は行き詰まっています。

for (Var in names(airquality)) {
    missing <- sum(is.na(airquality[,Var]))
    if (missing > 0) {
        print(c(Var,missing))
    }
}

編集：私は数十から数百の変数を持つdata.frameを扱っているので、欠損値を持つ変数のみを報告することがキーとなります。

どのように解決するのですか？

単に sapply

> sapply(airquality, function(x) sum(is.na(x)))
  Ozone Solar.R    Wind    Temp   Month     Day 
     37       7       0       0       0       0

また apply または colSums で作成された行列に is.na()

> apply(is.na(airquality),2,sum)
  Ozone Solar.R    Wind    Temp   Month     Day 
     37       7       0       0       0       0
> colSums(is.na(airquality))
  Ozone Solar.R    Wind    Temp   Month     Day 
     37       7       0       0       0       0