R语言haven包如何将指定值标签批量设为缺失值NA？

你可以通过批量遍历数据集所有变量，结合值标签判断规则自动完成替换，无需手动罗列上千个变量：

步骤1：加载依赖包 #

library(haven)
library(dplyr)

步骤2：自定义替换函数 #

该函数仅对满足「值标签含Did not respond且对应数值为5」的变量执行替换操作，其他变量直接返回原值：

replace_dnr_na <- function(x) {
  # 跳过非带标签的变量
  if (!is.labelled(x)) {
    return(x)
  }
  # 获取当前变量的值标签
  labs <- val_labels(x)
  # 匹配目标标签与对应数值
  target_lab <- "Did not respond"
  if (target_lab %in% names(labs) && unname(labs[target_lab]) == 5) {
    x[x == 5] <- NA
  }
  return(x)
}

步骤3：全数据集批量执行 #

# 请将df替换为你导入的SPSS数据集名称
df_cleaned <- df %>%
  mutate(across(everything(), replace_dnr_na))

补充说明 #

• 如果你不确定标签拼写是否存在大小写、前后空格差异，可以将匹配条件改为模糊匹配：把target_lab %in% names(labs)替换为any(grepl("did not respond", names(labs), ignore.case = TRUE))即可适配不同拼写情况。
• 所有未命中标签规则的变量，即使存在取值为5的记录也不会被修改。

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