如何根据r中的条件重新编码因子

Question

我正在尝试根据条件重新编码一个因素，但是，我无法做到。

请你帮助我好吗？

这是我的代码

if(df$ID = "x"){ df$ID <- recode_factor(df$ID, x == "Stack") }else if (df$ID = "y"){ df$ID <- recode_factor(df$ID, y=="Stack") } else { df$ID <- recode_factor(df$ID, "Other") }

我想做以下事情：
如果列 ID 的值为 x 或 y，则应将其重命名为 Stack。 如果它有任何其他值，则应将其重命名为其他

Answer 1

您应该使用矢量化ifelse而不是if ，后者只检查单个值。

假设您的数据如下所示：

df <- data.frame(ID = factor(c("y", "x", "a", "x", "x", "b", "y")))

df
#>   ID
#> 1  y
#> 2  x
#> 3  a
#> 4  x
#> 5  x
#> 6  b
#> 7  y

然后你可以用单行重构：

df$ID <- factor(ifelse(df$ID == "x" | df$ID == "y", "Stack", "Other"))

或者，等效地：

df$ID <- factor(ifelse(df$ID %in% c("x", "y"), "Stack", "Other"))

其中任何一个都会导致：

df
#>      ID
#> 1 Stack
#> 2 Stack
#> 3 Other
#> 4 Stack
#> 5 Stack
#> 6 Other
#> 7 Stack

您也可以使用以下版本，它根本不需要ifelse

df$ID <- factor(c("Other", "Stack")[df$ID %in% c("x", "y") + 1])

^{由reprex 包( v2.0.0 ) 于 2021 年 11 月 6 日创建}