使用dplyr case_when反转变量时遇类型不兼容错误求助

错误原因 #

你的unhappy变量是haven包导入的带标签变量（常见于从SPSS、SAS或Stata导入的数据集），这类变量属于<haven_labelled>类型，直接和普通数字（<double>类型）进行比较时，vec_equal()函数无法处理跨类型的比较操作，因此触发报错。

解决方案 #

方法1：转换变量类型后使用case_when

先将带标签的变量转换为普通数值型，再执行反向计分逻辑：

library(dplyr)
library(haven)

data <- data %>%
  mutate(unhappy_rev = case_when(
    as.numeric(unhappy) == 1 ~ 5,
    as.numeric(unhappy) == 2 ~ 4,
    as.numeric(unhappy) == 3 ~ 3,
    as.numeric(unhappy) == 4 ~ 2,
    as.numeric(unhappy) == 5 ~ 1
  ))

方法2：用数学公式简化反向计分（推荐）

对于1-5点的量表，反向计分可以直接用6 - 原变量值的公式实现，无需case_when，更简洁高效：

library(dplyr)
library(haven)

data <- data %>%
  mutate(unhappy_rev = 6 - as.numeric(unhappy))

方法3：保留变量标签的处理

如果需要保留变量的标签属性（用于后续可视化或导出），可以转换后重新设置标签：

library(dplyr)
library(labelled)

data <- data %>%
  mutate(
    unhappy_rev = 6 - as.numeric(unhappy),
    # 根据原标签反向设置新标签，示例标签需替换为实际内容
    unhappy_rev = set_labels(unhappy_rev, labels = c(
      "非常满意" = 5,
      "比较满意" = 4,
      "一般" = 3,
      "比较不满意" = 2,
      "非常不满意" = 1
    ))
  )

注意事项 #

• 执行前建议用table(data$unhappy)检查变量取值范围，确保是严格的1-5，避免反向计分结果异常；
• 以上方法都会自动保留原变量的缺失值，无需额外处理。

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