如何使用 mutate_at 和嵌套的 ifelse 语句自动重新编码许多变量？

Question

有一个大型数据集，由对每个主题的相同变量的重复测量组成。示例数据如下

df<-data.frame(
"id"=c(1:5),
"ax1"=c(1,6,8,15,17),
"bx1"=c(2,16,8,15,17))

其中“x1”是重复测量的，所以我们可以有“ax1”、“bx1”、“cx1”等等。我正在尝试重新编码这些变量。计划是将 1 和 3 到 12（包括）范围内的任何数字重新编码为 0，并将 2 或任何大于或等于 13 的值重新编码为 1。因为它涉及许多变量，我正在使用“mutate_at”来自动重新编码。此外，采用相同代码的数字不是连续的（例如，1 和 3-12 被重新编码为 0），因此我使用了嵌套的“ifelse”语句。我尝试了以下

df1<-df %>% 
mutate_at(vars(ends_with("x1")),factor, 
        ifelse(x1>=3 & x1 <=12,0,ifelse(x1==1, 0,
               ifelse(x1==2, 1,0))))

但是，这不起作用，因为 R 无法识别“x1”。提前非常感谢对此的任何帮助。预期的输出看起来像

> df1
   id ax1 bx1
1  1   0   1
2  2   0   1
3  3   0   0
4  4   1   1
5  5   1   1   

Answer 1

使用ifelse，我们可以进行如下操作：

df %>% 
   mutate_at(vars(ends_with("x1")),~ifelse(. ==1 | . %in% 3:12,0,
                                           ifelse(. ==2 | .>=13,1,.)))
  id ax1 bx1
1  1   0   1
2  2   0   1
3  3   0   0
4  4   1   1
5  5   1   1

Answer 2

我们可以用 case_when

library(dplyr)

df %>% 
  mutate_at(vars(ends_with("x1")), ~case_when((. >= 3 & . <= 12) | . == 1 ~ 0,
                                               . >= 13 | . == 2 ~ 1))

#  id ax1 bx1
#1  1   0   1
#2  2   0   1
#3  3   0   0
#4  4   1   1
#5  5   1   1