[解決済み] データフレームから、値の一部がNAである列を削除する

質問

いくつかの値がNAであるデータフレームがあります。これらの列を削除したい。

私のdata.frameは次のようなものです。

    v1   v2 
1    1   NA 
2    1    1 
3    2    2 
4    1    1 
5    2    2 
6    1   NA

列平均を推定して、列平均 !=NA を選択しようとしました。私はこのステートメントを試してみましたが、それは動作しません。

data=subset(Itun, select=c(is.na(colMeans(Itun))))

エラーが発生しました。

error : 'x' は少なくとも2次元の配列でなければなりません。

どなたか教えてください。

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

データです。

Itun <- data.frame(v1 = c(1,1,2,1,2,1), v2 = c(NA, 1, 2, 1, 2, NA)) 

これは、少なくとも1つの NA :

Itun[ , colSums(is.na(Itun)) == 0]

別の方法として apply :

Itun[ , apply(Itun, 2, function(x) !any(is.na(x)))]