将特定的 function 动态应用于不同的变量

Question

我有一个 csv 定义每个变量一行（指在另一个数据集中定义的真实数据变量）。 轻轻按摩后，我有一个像fxs这样的命名向量。

然后我可以遍历变量，并执行适当的 function。 我应该考虑另一种方法吗？ 也许使用rlang::exec()和/或purrr::map_*() 。 我喜欢我可以用单独的tryCatch()块包装两条主线，以更准确地描述解析 function 时是否出错，或者执行 function 时出错。

fxs <- c(
  "Sepal.Length"   = "\\(x) x *   1",
  "Sepal.Width"    = "\\(x) x *  10",
  "Petal.Length"   = "\\(x) x * 100"
)

d <- iris[1:5, 1:3]
for (variable in colnames(d)) {
  fx <- base::eval(base::parse(text = fxs[[variable]]))
  d[[variable]] <- fx(d[[variable]])
}
d

我在想它看起来很像dplyr::mutate()语句的内部。 也许最好尝试将 csv 转换为传递给...的语句。 除了这个概念验证之外，我没有做任何事情，所以如果有人有不同的方法，我有很大的灵活性。

d |> 
  dplyr::mutate(
    Sepal.Length   = Sepal.Length *   1,
    Sepal.Width    = Sepal.Width  *  10,
    Petal.Length   = Petal.Length * 100,
  )

所需的 output：

  Sepal.Length Sepal.Width Petal.Length
1          5.1          35          140
2          4.9          30          140
3          4.7          32          130
4          4.6          31          150
5          5.0          36          140

Answer 1

我们可以使用cur_column()子集内across表达式

library(dplyr)
d %>% 
   mutate(across(all_of(names(fxs)), 
       ~ eval(parse(text = fxs[[cur_column()]]))(.x)))

-输出

  Sepal.Length Sepal.Width Petal.Length
1          5.1          35          140
2          4.9          30          140
3          4.7          32          130
4          4.6          31          150
5          5.0          36          140

---

如果函数都在进行乘法运算，则改为创建一个命名vector或要相乘的值list ，并避免eval/parse

 nm1 <- c(Sepal.Length = 1, Sepal.Width = 10, Petal.Length = 100)
d %>% 
   mutate(across(all_of(names(nm1)), ~ nm1[cur_column()] * .x))
 Sepal.Length Sepal.Width Petal.Length
1          5.1          35          140
2          4.9          30          140
3          4.7          32          130
4          4.6          31          150
5          5.0          36          140