如何在R语言中列出导入数据库的因子变量数值与标签对应关系

这里有几个简单的方法能生成类似SPSS的编码 = 标签格式对应列表，不管是用foreign还是haven导入的数据都适用：

1. Base R 快速处理单个因子变量 #

如果数据是用foreign::read.spss()导入的，变量已经转成因子，直接用以下代码生成对应关系：

# 替换成你的目标变量
target_var <- df$likert_scale

# 提取编码和标签
codes <- as.integer(levels(target_var))
labels <- levels(target_var)

# 输出SPSS风格的对应文本
cat(paste(codes, labels, sep = " = ", collapse = "\n"))

输出示例：

1 = definitely not
2 = somewhat not
3 = neutral
4 = somewhat yes
5 = definitely yes

2. 用haven包更友好处理SPSS标签 #

推荐用haven包导入SPSS数据，它会保留原始的标签属性，不用转因子就能直接提取对应关系：

library(haven)
# 导入SPSS数据文件
df <- read_sav("your_data_file.sav")

# 直接获取单个变量的编码-标签对应表
val_labels(df$likert_scale)

# 转成SPSS风格文本输出
label_pairs <- val_labels(df$likert_scale)
cat(paste(names(label_pairs), label_pairs, sep = " = ", collapse = "\n"))

3. 批量处理所有带标签的变量 #

如果要一次性查看数据里所有因子/带标签变量的对应关系，写个小函数就行：

show_all_label_pairs <- function(data) {
  # 遍历所有变量
  for (var_name in names(data)) {
    var <- data[[var_name]]
    # 判断是因子或者haven的labelled类型
    if (is.factor(var) || inherits(var, "labelled")) {
      cat("\n=== ", var_name, " ===\n")
      if (is.factor(var)) {
        codes <- as.integer(levels(var))
        labels <- levels(var)
      } else {
        label_pairs <- val_labels(var)
        codes <- names(label_pairs)
        labels <- as.character(label_pairs)
      }
      cat(paste(codes, labels, sep = " = ", collapse = "\n"))
    }
  }
}

# 调用函数查看所有变量的编码-标签对应
show_all_label_pairs(df)

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