將特定的 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