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

Question

I have a csv that defines one row per variable (referring to real data variables that are defined in another dataset). After light massaging, I have a named vector like fxs .

I then can iterate over the variables, and execute the appropriate function. Is there another way I should consider? Perhaps with rlang::exec() and/or purrr::map_*() . I like that I can wrap the two main lines with separate tryCatch() blocks to more accurately describe if there was an error parsing the function, or an error executing the 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

I was thinking it looks a lot like the inside of a dplyr::mutate() statement. Maybe it's better to try to convert the csv into statements passed to ... . I haven't done anything beyond this proof-of-concept, so I have a lot of flexibility if someone has a different approach.

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

Desired 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

We may use cur_column() to subset the expression within across

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

-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

---

If the functions are all doing the multiplication, instead create a named vector or list of values to be multiplied and avoid the 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