R中是否有更优雅的mapvalues用法 实现李克特量表转标准化量表

核心思路是先定义可复用的转换逻辑，再批量应用到所有需要转换的变量上，避免逐个变量重复写赋值代码。

• 基础实现方案（dplyr+purrr结合，最常用）
  首先编写通用转换函数：

likert_to_std <- function(x) {
  dplyr::case_match(
    as.character(x),
    "1" ~ 0L,
    "2" ~ 25L,
    "3" ~ 50L,
    "4" ~ 75L,
    "5" ~ 100L,
    .default = NA_integer_
  )
}

再批量应用到目标变量：

library(purrr)
library(dplyr)

# 填入所有需要转换的变量名
vars_to_convert <- c("var1", "var2", "var3")
data <- data %>%
  mutate(across(all_of(vars_to_convert), likert_to_std))

• 纯purrr实现方案
  不需要依赖dplyr，直接用purrr的列处理函数：

library(purrr)

vars_to_convert <- c("var1", "var2", "var3")
data[vars_to_convert] <- map_dfc(data[vars_to_convert], likert_to_std)

• 可灵活调整映射规则的扩展方案
  把映射逻辑单独抽成查找表，后续调整转换规则不需要修改函数代码：

# 映射规则调整直接修改这个命名向量即可
likert_lookup <- c("1" = 0, "2" = 25, "3" = 50, "4" = 75, "5" = 100)

likert_to_std <- function(x) {
  unname(likert_lookup[as.character(x)])
}

# 应用逻辑和上面一致
data[vars_to_convert] <- map_dfc(data[vars_to_convert], likert_to_std)

注意：如果你的原始李克特变量本身是整数类型，不需要转字符，直接去掉转换函数中的as.character()，匹配规则对应改成整数1/2/3/4/5即可。

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