从r中的先前列中创建分类变量

Question

我一直在尝试从以前的二进制变量创建一个新的分类变量。我想包括的所有二进制变量（咳嗽，发烧等）都有“ 1'或0”的值。 这是我一直在尝试的代码：

symptoms<-ifelse(cough==1,"cough",ifelse(fever==1,"fever",ifelse(diarrhea==1,"diarrhea",ifelse(dispnea==1,"dispnea",ifelse(neurologic==1,"neurologic",ifelse(otherSymp==1,"other symtomes", NA))))))

问题在于，输出仅为4个类别，而不是6类。

我知道这是一个基本问题，对不起，并提前感谢您。

Answer 1

如评论中所述， case_when 是一个有用的选择到许多嵌套的 ifelse 调用：

library(dplyr)

# Create sample dataset
df <- data.frame(cough = c(1, 0, 0, 0, 0, 0, 0, 1),
                 fever = c(0, 1, 0, 0, 0, 0, 0, 1),
                 diarrhea = c(0, 0, 1, 0, 0, 0, 0, 1),
                 dyspnea = c(0, 0, 0, 1, 0, 0, 0, 1),
                 neurologic = c(0, 0, 0, 0, 1, 0, 0, 0),
                 otherSymp = c(0, 0, 0, 0, 0, 1, 0, 0))

# Create categorical variable
df |> mutate(symptom = case_when(cough == 1 ~ "cough",
                                 fever == 1 ~ "fever",
                                 diarrhea == 1 ~ "diarrhea",
                                 dyspnea == 1 ~ "dyspnea",
                                 neurologic == 1 ~ "neurologic",
                                 otherSymp == 1 ~ "other",
                                 TRUE ~ "none"))

输出

#>   cough fever diarrhea dyspnea neurologic otherSymp    symptom
#> 1     1     0        0       0          0         0      cough
#> 2     0     1        0       0          0         0      fever
#> 3     0     0        1       0          0         0   diarrhea
#> 4     0     0        0       1          0         0    dyspnea
#> 5     0     0        0       0          1         0 neurologic
#> 6     0     0        0       0          0         1      other
#> 7     0     0        0       0          0         0       none
#> 8     1     1        1       1          0         0      cough

^{在2022-07-11创建的（v2.0.1）}

但是，这是一个非常基本的解决方案，假设您的症状不能超过一个（不合理） - 如果您有一个以上的症状，症状< /代码>只会提及第一个。