如何将数据集中指定因子变量转换为自定义数值并保留数据集格式？

这里提供两种简洁的实现方式，都能满足你的需求：

方法一：使用tidyverse工具链（推荐） #

利用dplyr的mutate_at指定目标列，结合recode完成映射转换，代码如下：

library(dplyr)

# 定义映射规则
map_rule <- c("yes" = 1, "no" = 5, "dk" = 8)

# 转换指定列并保留原数据集结构
questions_transformed <- questions %>%
  mutate_at(vars(2:3), ~recode(., !!!map_rule))

解释：

• vars(2:3) 指定处理第2和第3列，也可以用列名vars(do_you_like_playing_football, do_you_like_playing_basketball)，更直观
• ~recode(., !!!map_rule) 用!!!展开映射规则，将因子的水平对应转换为指定数值，转换后列的类型会自动变为数值型
• 原数据集的sex列仍保持因子类型，整体结构不变

方法二：使用Base R实现 #

如果不想加载额外包，可以用Base R的方式：

# 定义映射向量
map_vec <- c(yes = 1, no = 5, dk = 8)

# 对第2、3列进行映射转换
questions_transformed_base <- questions
questions_transformed_base[, 2:3] <- lapply(questions_transformed_base[, 2:3], function(x) map_vec[as.character(x)])

解释：

• 先复制原数据集，避免修改原始数据
• lapply遍历目标列，将因子转为字符后匹配映射向量的名称，返回对应数值
• 转换后目标列会变为数值型，其他列保持原类型

可以用str(questions_transformed)查看数据结构，确认sex是因子，后两列是数值型。

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