R语言如何基于函数传入参数对factor因子的水平进行重赋值？

你写的c(member1="animals", member2="trees")构造命名向量时，R会直接把member1、member2作为键的字面量字符串，不会解析为这两个参数对应的实际取值（也就是你传入的"cats"、"pines"），因此revalue在因子中找不到名为member1、member2的水平，触发报错。

方法1：保留revalue，动态构造映射向量 #

用setNames()函数动态绑定映射的键值，键会自动解析为参数的实际值：

myFunction <- function(..., member1 = "cats", member2 = "pines", my_factor) {
  # 第一个参数是新水平，第二个参数是对应的要替换的旧水平
  replace_map <- setNames(c("animals", "trees"), c(member1, member2))
  my_factor <- plyr::revalue(my_factor, replace_map)
  return(my_factor)
}

测试示例：

# 构造测试因子
my_factor <- factor(c("cats", "pines", "cats", "oranges"))
# 调用函数
my_factor_new <- myFunction(my_factor = my_factor)
# 查看修改后的水平
levels(my_factor_new)
# 输出："animals" "oranges" "trees"

方法2：base R原生实现，无额外依赖 #

直接修改因子的levels属性，逻辑更简洁：

myFunction <- function(..., member1 = "cats", member2 = "pines", my_factor) {
  old_lvls <- levels(my_factor)
  old_lvls[old_lvls == member1] <- "animals"
  old_lvls[old_lvls == member2] <- "trees"
  levels(my_factor) <- old_lvls
  return(my_factor)
}

方法3：tidyverse生态用fct_recode #

如果你常用tidyverse工具链，用forcats包的fct_recode写法更适配：

myFunction <- function(..., member1 = "cats", member2 = "pines", my_factor) {
  my_factor <- forcats::fct_recode(
    my_factor,
    "animals" = member1,
    "trees" = member2
  )
  return(my_factor)
}

内容的提问来源于stack exchange，提问作者Poecile palustris