仅返回R中包含NA的列

Question

我有以下数据框架:

i3<-c(1,1,1,1,2,2)
i2<-c(NA,1,1,1,2,2)
i1<-c(1,NA,2,4,5,3)
newdat1<-data.frame(i3,i2,i1)
print(newdat1)
  i3 i2 i1
1  1 NA  1
2  1  1 NA
3  1  1  2
4  1  1  4
5  2  2  5
6  2  2  3

我意识到这个解决方案非常简单,但我试图返回任何NA的所有列,以便最终结果如下:

  i2 i1
1 NA  1
2  1 NA
3  1  2
4  1  4
5  2  5
6  2  3

我发现以下代码反其道而行之:

newdat1<-newdat1[, sapply(newdat1, Negate(anyNA)), drop = FALSE]

但我找不到我想要的东西.谢谢.

Answer 1

newdat1[!complete.cases(t(newdat1))]

输出:

  i2 i1
1 NA  1
2  1 NA
3  1  2
4  1  4
5  2  5
6  2  3