如何一次更改多个因素的水平

问：

G'day， 我有一个包含多个因子变量的数据框。

我想将所有这些因素变量的水平更改为相同的水平。 它们都有 16 个级别，我想更改为 7 个级别。

如果我像这样，它已经对我有用了：

data <-
data |>
  mutate(variable = fct_recode(
  variable,
    "new level" = "old level",
     "…"   = "…"
    "new level" = "old level"))

我可以为每一个因素做这件事。

但是由于我还有大约 19 个其他因素，我宁愿用更少的样板而不是一对一来做。

因此，我基本上是在寻找一种方法来同时改变所有 19 个因素的水平

我尝试了一些东西，但没有完全成功。across()

 level_mapping <- c(
  "new level" = "old level",
  "..." = "..."
  "new level" = "old level")

df_new <- df_old %>%
  mutate(across(where(is.factor), ~ fct_recode(., !!!level_mapping)))

我希望我的问题可以理解，任何帮助将不胜感激

[编辑]我忘了提：在改变因子水平的同时，我还想去掉其中一个 一个 repex：

library(dplyr)
df <- data.frame(
  var1 = factor(c("A", "B", "C")),
  var2 = factor(c("A", "B", "C")),
  var3 = factor(c("A", "B", "C"))
)

level_mapping <- c(
  "A" = "R",
  "B" = "E",
  "C" = "F")

df_new <- df %>%
  mutate(across(where(is.factor), ~ recode(., !!!level_mapping))), "F" = NA)))