如何在R的recode函数中使用向量实现高效变量重编码？

你可以试试下面两种更高效的方法，不用手动逐个写映射关系：

方法1：提取Question中的数字直接索引 #

利用Question变量"Q+数字"的格式，先提取数字部分，再用这个数字作为下标直接取grade_level对应位置的值：

grade_level <- c(7,7,7,8,8,8,8,8,8,7,8,8,8,6,8,8,8,8,8,7,7,8,8,8,8)

math08_0510 <- math08_0510 %>% 
  mutate(
    # 提取Question中的数字并转为整数，作为grade_level的索引
    Grade_Level = as.character(grade_level[as.integer(str_remove(Question, "Q"))])
  )

用readr::parse_number能让代码更简洁：

math08_0510 <- math08_0510 %>% 
  mutate(Grade_Level = as.character(grade_level[parse_number(Question)]))

方法2：构建命名映射向量 #

先把grade_level转成命名向量，名字对应"Q1"到"Q25"，直接用这个向量匹配Question的值：

grade_level <- c(7,7,7,8,8,8,8,8,8,7,8,8,8,6,8,8,8,8,8,7,7,8,8,8,8)
# 构建命名向量，名字自动生成Q1到Q25
grade_map <- setNames(as.character(grade_level), paste0("Q", 1:25))

math08_0510 <- math08_0510 %>% 
  mutate(Grade_Level = grade_map[Question])

这两种方法都能避免手动输入25个映射对，后续如果grade_level有修改，只需要调整原始向量就行，不用改mutate里的代码。

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