如何提取SPSS导入R的dataframe中指定变量的label属性？

假设你用haven::read_sav()导入SPSS数据，并用haven::as_factor()转换后得到数据框dat1，以下是两种可靠的提取指定变量label属性的方法：

方法1：Base R原生方法 #

先定义需要提取的变量列表，再通过sapply遍历变量提取属性：

# 定义目标变量列表
target_vars <- c("hc", "prot", "gratot", "变量4", "变量5", "变量6", "变量7", "变量8", "变量9", "变量10", "变量11", "变量12")

# 提取变量label属性
var_labels <- sapply(dat1[, target_vars], function(x) attr(x, "label"))

# 输出纯文本格式结果
print(var_labels)
# 或者转为数据框更直观查看
data.frame(变量名 = names(var_labels), 变量标签 = as.character(var_labels))

方法2：使用labelled包简化操作 #

labelled包提供了专门的变量标签提取函数，更简洁：

library(labelled)

# 定义目标变量列表
target_vars <- c("hc", "prot", "gratot", "变量4", "变量5", "变量6", "变量7", "变量8", "变量9", "变量10", "变量11", "变量12")

# 提取指定变量的label
var_labels <- var_label(dat1[, target_vars])

# 转为纯文本输出
print(unlist(var_labels))

注意事项 #

• 区分"label"和"labels"：前者是变量标签，后者是值标签（比如分类变量的选项说明），别搞混属性名。
• 如果之前循环或lapply失败，大概率是没正确筛选变量子集，或者误调用了值标签属性。

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