如何在Base R中移除调查数据里零方差的受访者行

没问题！要在Base R里实现这个需求其实很直接，这里有两种实用的方法，你可以根据自己的数据情况选择：

方法一：逐行检查所有目标题项 #

这种方法逻辑直观，适合需要明确判断每一行是否全为5的场景：

# 先指定你的50道题对应的列（可以是列索引或列名）
# 示例：如果题项是从第1列到第50列
target_cols <- 1:50
# 或者如果题项列名是Q1到Q50，用这个：
# target_cols <- paste0("Q", 1:50)

# 创建逻辑向量：标记哪些行**不是**所有题项都为5
keep_rows <- apply(df[, target_cols], MARGIN = 1, function(row) !all(row == 5))

# 筛选出符合条件的行，得到清洗后的数据集
clean_df <- df[keep_rows, ]

解释一下：apply(..., MARGIN = 1)会逐行处理目标列，all(row == 5)判断该行所有题项是否都等于5，加!取反后，我们就得到了需要保留的行的标记。

方法二：利用行求和快速筛选 #

如果你的Likert题只有1-5的取值且没有缺失值，这种方法效率更高（尤其是数据量很大的时候）：

全5的50道题总和是 5 * 50 = 250，我们只要筛选出行和不等于250的行就行：

target_cols <- 1:50 # 同样替换成你的目标列

# 计算每行目标题项的总和
row_sums <- rowSums(df[, target_cols])

# 筛选出总和不等于250的行
clean_df <- df[row_sums != 250, ]

注意：如果数据里有缺失值，rowSums会返回NA，这时候可以加上na.rm = TRUE参数，但要确认这类有缺失的行是否是你想保留的——如果某行有缺失但其余都是5，它的行和会小于250，不会被误删。

小技巧 #

如果你的题项列不是连续的，可以用列名匹配来快速选中目标列，比如所有以"Q"开头的列：

target_cols <- grep("^Q", names(df), value = TRUE)

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