仅删除具有 NA 值的列

Question

我使用此命令删除所有值为 NA 的列。

testing5 <- subset(testing4,
                   select = -c(kurtosis_picth_belt, skewness_roll_belt, 
                   skewness_roll_belt.1, min_yaw_belt, amplitude_yaw_belt, 
                   kurtosis_roll_arm, kurtosis_picth_arm, kurtosis_yaw_arm, 
                   skewness_roll_arm, skewness_pitch_arm, kurtosis_picth_dumbbell, 
                   skewness_roll_dumbbell, skewness_pitch_dumbbell, min_yaw_dumbbell, 
                   kurtosis_roll_forearm, kurtosis_picth_forearm, skewness_roll_forearm, 
                   skewness_pitch_forearm))

有没有更短的（程序化）方法？

谢谢和问候， 帕萨

Answer 1

tidyverse 方法如下所示（也使用@Rich Scriven 数据）：

d %>% select_if(~any(!is.na(.)))
#    x
# 1 NA
# 2  3
# 3 NA