R 基于另一个数据帧中的函数列表将CASE_WHEN应用于数据帧

使用purrr::reduce2可以循环遍历dataframe_2的各行，如下所示:

注:您的case_when条声明中没有右括号.

library(purrr)
library(dplyr, warn = FALSE)

dataframe_1 <- mtcars[1:3, c("mpg", "cyl")]

dataframe_2 <- data.frame(
  variable = c(c("mpg", "cyl")),
  function_to_use = c(
    'case_when(mpg == 21 ~ "A", mpg == 22.8 ~ "B")',
    'case_when(cyl == 6 ~ "X", cyl == 4 ~ "Y")'
  )
)

dataframe_1 |>
  purrr::reduce2(
    dataframe_2$variable, dataframe_2$function_to_use,
    \(x, y, z) mutate(x, across(all_of(y), ~ !!!rlang::parse_exprs(z))),
    .init = _
  )
#>               mpg cyl
#> Mazda RX4       A   X
#> Mazda RX4 Wag   A   X
#> Datsun 710      B   Y

EDIT对于更一般的问题，您可以将代码包装在一个函数中，然后使用purrr::map2循环数据框列表:

library(purrr)
library(dplyr, warn = FALSE)
library(rlang)

myfun <- function(x, y) {
  x |>
    purrr::reduce2(
      y$variable, y$function_to_use,
      \(x, y, z) mutate(x, across(all_of(y), ~ !!!rlang::parse_exprs(z))),
      .init = _
    )
}

purrr::map2(dataframe_1, dataframe_2, myfun)
#> $dataframe_1a
#>               mpg cyl
#> Mazda RX4       A   X
#> Mazda RX4 Wag   A   X
#> Datsun 710      B   Y
#> 
#> $dataframe_1b
#>                   mpg cyl
#> Hornet 4 Drive      A   Y
#> Hornet Sportabout   B   X
#> Valiant             B   Y