导入SPSS数据时保留标签及处理haven_labelled变量的方法

核心解决方案：使用haven包的as_factor()函数（下划线版本） #

你之前误用了基础R的as.factor()，而haven包专门提供了as_factor()函数，用来将带标签的变量转换为保留标签的因子。

1. 单个变量转换

library(haven)
# 假设你的数据框是data，目标变量是var1
data$var1 <- haven::as_factor(data$var1)

转换后，因子水平会直接显示SPSS里的标签（比如"a""b"），而非原始编码1、2。

2. 批量转换所有带标签的变量

如果需要转换数据框中所有haven_labelled类型的变量，结合dplyr可以快速处理：

library(dplyr)
data <- data %>% mutate_if(haven::is.labelled, haven::as_factor)

3. 处理无法转换的变量

部分变量转换失败，通常是因为存在未被标签定义的编码值。先检查变量的标签映射：

# 查看目标变量的标签与编码对应关系
haven::print_labels(data$problem_var)

如果发现有编码不在标签里，可先补充标签再转换：

# 比如给编码99添加"缺失值"标签
attr(data$problem_var, "labels") <- c(attr(data$problem_var, "labels"), "缺失值" = 99)
# 再执行转换
data$problem_var <- haven::as_factor(data$problem_var)

备选方案：使用sjlabelled包

如果习惯更直观的标签处理，sjlabelled包的as_label()函数也能实现相同效果：

library(sjlabelled)
data$var1 <- sjlabelled::as_label(data$var1)

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