在R中重编码SPSS/.sav文件并保留元数据的技术问题

当使用haven::read_sav()读取SPSS数据后，若要将数值型带标签的变量转换为字符型（比如把AWR_A_5中的1替换为对应的标签文本），同时保留变量的描述标签和值标签元数据，可以通过以下步骤实现：

步骤1：加载所需包 #

确保安装并加载haven（用于读取SPSS数据）和labelled（用于标签操作）：

install.packages(c("haven", "labelled"))
library(haven)
library(labelled)

步骤2：读取SPSS数据 #

testfile <- read_sav("TestFile.sav")

步骤3：转换变量并保留元数据 #

先提取变量的原有标签信息，再替换数值为对应标签，最后重新绑定元数据：

# 提取变量的描述标签和值标签
var_desc <- var_label(testfile$AWR_A_5)
value_labels <- val_labels(testfile$AWR_A_5)

# 将数值1替换为对应标签，其他值转为字符型保留
testfile$AWR_A_5 <- ifelse(
  testfile$AWR_A_5 == 1,
  value_labels[["1"]],
  as.character(testfile$AWR_A_5)
)

# 重新赋值变量描述标签和值标签
var_label(testfile$AWR_A_5) <- var_desc
val_labels(testfile$AWR_A_5) <- value_labels

验证结果 #

执行以下代码查看转换后的变量：

testfile$AWR_A_5

输出会符合预期：

<labelled<character>[10]>: Which of the following automotive resource sites, if any,
 have you heard of? Please select all that apply. Kelley Blue Book
 [1] NA NA  "0" NA NA  "Kelley Blue Book"  "Kelley Blue Book" NA  "Kelley Blue Book"  "0"

Labels:
 value            label
     1   Kelley Blue Book

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