小技巧：R语言里删除带有缺失值的列

如果是要去除包含缺失值的行，直接使用na.omit()函数就可以了，但是如果要去除含有缺失值的列呢？

经过搜索找到了一个相对比较简单的代码

https://stackoverflow.com/questions/12454487/remove-columns-from-dataframe-where-some-of-values-are-na

代码

首先是构造一份数据集

dfpra<-data.frame(A=1:5,
                  B=c(1:4,NA),
                  D=c(NA,NA,1:3))
dfpra

image.png

实现目的需要借助dplyr这个R包

用到的是select_if()函数

这个具体的写法怎么解释我暂时还没有搞明白，先背下来再说吧

dfpra
library(dplyr)
dfpra %>% 
  select_if(~any(is.na(.)))

这个代码是保留带有缺少值的列

image.png

如果是要删除带有缺失值的列在any函数前加一个感叹号就可以了

dfpra<-data.frame(A=1:5,
                  B=c(1:4,NA),
                  D=c(NA,NA,1:3))
dfpra
library(dplyr)
dfpra %>% 
  select_if(~!any(is.na(.)))

image.png

any()函数的用法

通过?any命令查看帮助文档，返回内容是

image.png

Given a set of logical vectors, is at least one of the values true?

判断数据集是否至少存在一个数据满足指定的条件，返回值是TRUE或者FALSE 比如判断一组数据中是否存在负数

代码

x1<-c(1,2,3,4,5)
any(x1<0)
x2<-c(-1,2,3)
any(x2<0)

image.png