如何使用data.table移除所有问卷问题列全为NA的行？

首先，先将你的数据转换为data.table格式（若尚未转换）：

library(data.table)
dt <- data.table(
  ID = c(1,2,3),
  gender = c("male", "male", "female"),
  age = c(35,45,55),
  Q1 = c(1, NA, NA),
  Q2 = c(1, NA, NA),
  Q3 = c(NA, NA, NA)
)

提供两种高效的筛选方式，按需选择：

方法一：直接针对目标列做逻辑判断 #

适合问卷列较少的场景，直接判断任意一列非NA即可保留：

dt[!is.na(Q1) | !is.na(Q2) | !is.na(Q3)]

方法二：批量处理目标列 #

如果问卷列数量较多（比如Q1到Qn），用批量方式更简洁高效：

dt[rowSums(!is.na(.SD)) > 0, .SDcols = c("Q1", "Q2", "Q3")]

• .SD指代当前数据集的子集，无分组时就是整个数据
• .SDcols指定要筛选的目标列（Q1-Q3）
• rowSums(!is.na(.SD))计算每行中非NA值的数量，大于0即表示该行不全为NA，予以保留

运行后得到的结果为：

ID gender age Q1 Q2 Q3
1:  1   male  35  1  1 NA

内容的提问来源于stack exchange，提问作者Hellihansen