在R中无法将多响应因子变量转为数值型的解决求助

核心问题 #

用haven导入的SPSS多响应因子变量，直接调用as.numeric()只会读取因子的水平编码，且因haven的labelled属性残留，变量可能仍保留因子类型。需针对性处理生成0-1数值变量。

批量转换方案（适用于29个独立职业变量） #

假设你的数据框为df，29个职业变量以profession_1到profession_29命名：

# 筛选所有职业变量列
prof_cols <- grep("^profession_", names(df), value = TRUE)
# 批量生成0-1数值列（将"选中"替换为你数据中代表选中的因子水平文本）
df[paste0("prof_num_", seq_along(prof_cols))] <- lapply(df[prof_cols], function(col) {
  as.integer(as.character(col) == "选中")
})

处理单个多值因子变量（若职业选项在单个单元格中） #

如果profession是单个因子变量，每个单元格包含多个选中的职业标签：

library(tidyr)
library(dplyr)

# 拆分多值因子为行数据
df_long <- df %>%
  select(id, profession) %>%
  separate_rows(profession, sep = "; ") # 分隔符根据你的实际数据调整

# 生成0-1宽表
df_prof_wide <- df_long %>%
  mutate(flag = 1) %>%
  pivot_wider(names_from = profession, values_from = flag, values_fill = 0)

# 合并回原数据框
df <- left_join(df, df_prof_wide, by = "id")

验证与统计 #

# 检查转换后变量类型
str(df[, grep("^prof_num_", names(df))])
# 统计每个个体的职业选择数量
df$total_prof_count <- rowSums(df[, grep("^prof_num_", names(df))])

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