R语言如何动态为不同变量应用指定函数？支持rlang/purrr/dplyr实现

方案1：purrr 遍历实现（带分层错误捕获） #

该方案直接替代原有for循环，两层tryCatch分别捕获函数解析、执行阶段的错误，可精准定位问题来源。

library(purrr)
library(dplyr)

fxs <- c(
  "Sepal.Length"   = "\\(x) x *   1",
  "Sepal.Width"    = "\\(x) x *  10",
  "Petal.Length"   = "\\(x) x * 100"
)
d <- iris[1:5, 1:3]

# 遍历变量和对应函数字符串
d_processed <- map2_dfc(
  .x = names(fxs),
  .y = fxs,
  .f = function(var_name, fx_str) {
    # 第一层错误捕获：函数解析阶段
    fx <- tryCatch(
      eval(parse(text = fx_str)),
      error = function(e) stop(sprintf("变量[%s]函数解析失败：%s", var_name, e$message))
    )
    # 第二层错误捕获：函数执行阶段
    tryCatch(
      fx(d[[var_name]]),
      error = function(e) stop(sprintf("变量[%s]函数执行失败：%s", var_name, e$message))
    )
  }
)

d_processed

执行后输出和你的原有逻辑完全一致，所有报错都会携带对应变量名，适合规则量较大、需要快速定位CSV错误行的场景。

方案2：动态生成mutate参数（兼容dplyr生态） #

如果需要和dplyr语法风格统一，可以把CSV里的规则直接转成mutate的动态参数，不需要显式写遍历逻辑：

library(dplyr)
library(rlang)

# 把函数字符串转成mutate可识别的表达式列表
mutate_exprs <- imap(fxs, function(fx_str, var_name) {
  # 可在此处添加解析阶段的tryCatch
  tryCatch({
    fx <- eval(parse(text = fx_str))
    expr(!!sym(var_name) := !!fx(!!sym(var_name)))
  }, error = function(e) stop(sprintf("变量[%s]规则解析失败：%s", var_name, e$message)))
})

# 用!!!运算符注入到mutate中执行，执行阶段错误可在外层包裹tryCatch捕获
d_processed <- d |> 
  mutate(!!!mutate_exprs)

d_processed

该方案写法和原生dplyr操作几乎无差异，后续如果要增加其他数据处理逻辑可以无缝衔接，执行效率和手动写mutate语句完全一致。

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