如何根据传递给 R 中函数的参数值重估因子中的元素

Question

早上好，

你能帮我解决以下问题吗？ 我有一个函数，我向它传递某些作为因子水平的值。 我想根据这个值重新评估因子水平。

例如，如果我想重估因子my_factor ("cats" -> "animals", "pines" -> "trees") 中的my_factor <- revalue(my_factor, c("cats"="animals", "pines"="trees")) ，我使用： my_factor <- revalue(my_factor, c("cats"="animals", "pines"="trees")) 。 但是现在我想根据传递给函数的参数值重新评估级别：

myFunction(..., member1 = "cats", member2 = "pines") {
my_factor <- revalue(my_factor, c(member1="animals", member2="trees"))
}

此代码片段不起作用（ Error: The following x values were not present in Error: The following values were not present in : member1, member2 ）。

请告诉我如何正确操作？ 也许我需要使用revalue以外的东西。

问候， Poecile

Answer 1

您引用了plyr ，但该软件包已过时，通常不建议使用它。 我不打算以dplyr方式尝试解决方案，因为我对它的各种抽象级别没有足够的掌握。

基本函数levels<-将干净利落地做到这一点。 当您执行以下操作时：

levels(fac)[some_index] <- "something"

您可以更改该级别的打印值而不更改携带信息的因子整数的基本模式。 因此，使用`levels(fac)，一次获取级别的当前值以创建一个逻辑索引以在“[”内部使用，并再次在“外部”上进行重新分配：

levels(fac)[ levels(fac) == "cats"] <- "animals"
levels(fac)[ levels(fac) == "pines"] <- "trees"

您实际上使用了两个不同的函数： levels<- （在外部）和levels （在内部）。 为了使这个过程成为可以处理任意数量的重新分配的函数，您需要将重新分配对包含在列表列表中，以便您可以迭代这些对。 您当前的请求正在尝试使用类似语言的表达式，例如"cats" = "animals" ，但这会创建一个名为cats的参数，其值为"animals"

reval <- function(x)(fac, reassign) {
             lapply(reassign, function(fac, pair) {
                       levels(col)[levels(col)==pair[[1]]] <-pair[[2]]}
                                      return(fac) }

你会这样称呼它：

facname <- reval ( facname, list( list("curlev1", "newlev1"),
                                  list("curlev2", "newlev2")) )  )

如果您在使用“my_factor ("cats" -> "animals", "pines" -> "trees")” 命名的示例中有一个示例，然后使用以下命令对其进行测试

 my_factor <- reval( my_factor, reassign = list (list("cats" , "animals"), 
                                           list("pines" , "trees") ) )

如果它不起作用，那么您应该发布 R 代码来创建一个可用于进一步开发和测试的示例。