排除仅由NA组成的列

Question

我的问题，如果非常像以前的问题(Remove rows with NAs (missing values) in data.frame)。我想用这样的方式过滤我的矩阵，使所有带有NA的列都会消失。我想用NA和数字的混合组成列。因此，在下面的示例中，我希望去掉名为mmul和cfam的列，并保留其余的列。

             gene hsap mmul mmus rnor cfam
1 ENSG00000208234    0   NA   NA   NA   NA
2 ENSG00000199674    0   NA    2    2   NA
3 ENSG00000221622    0   NA   NA   NA   NA
4 ENSG00000207604    0   NA   NA    1   NA
5 ENSG00000207431    0   NA   NA   NA   NA
6 ENSG00000221312    0   NA    2    3   NA

我想让我的新矩阵看起来像这样：

             gene hsap  mmus rnor 
1 ENSG00000208234    0   NA   NA  
2 ENSG00000199674    0    2    2  
3 ENSG00000221622    0   NA   NA  
4 ENSG00000207604    0   NA    1  
5 ENSG00000207431    0   NA   NA  
6 ENSG00000221312    0    2    3  

Answer 1

你在找all(is.na())

DF = data.frame(Col1 = c(NA,NA),Col2 = c(1,1));
DFOut = DF[!apply(DF,2,function(x) all(is.na(x)))]