res1 <- data.frame(res) ##数据框
library(dplyr) ### select_if() 函数
res2 <- res1 %>% select_if(~!any(is.na(.)))##去除含有缺失值的列
去除包含缺失值的行,直接使用na.omit()函数
res1 <- data.frame(res) ##数据框
library(dplyr) ### select_if() 函数
res2 <- res1 %>% select_if(~!any(is.na(.)))##去除含有缺失值的列
去除包含缺失值的行,直接使用na.omit()函数