r - 从某些值不适用的数据框中删除列

Question

我有一个数据框，其中某些值为NA。我想删除这些列。

我的data.frame看起来像这样

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

我试图估计col平均值，然后选择列均值!= NA。我尝试过此语句，它不起作用。

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

我有一个错误

error : 'x' must be an array of at least two dimensions

谁能给我些帮助吗？

Answer 1

数据:

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

这将删除所有至少包含一个 NA的列:

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

另一种方法是使用 apply:

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