使用Case_when

Question

我正在尝试将列中的某些值从例如10、11、4和5更改为1。该列包含从1到20的值。我希望所有其他值，而不是上面列出的数字变为0。我认为一个案例是解决这个问题的一个很好的方法，但我希望得到任何帮助。我正在尝试创建虚拟变量，所以如果有更好的方法，请让我知道。

    RUVDM = RUVDM %>% 
  mutate(Extrac = case_when(
    V015 == "10"~ 1,
    V015 == "11"~1,
    V015 == "4"~ 1,
    V015 == "5"~1,
    TRUE ~ 0)
  )

Answer 1

我们可以不使用==而使用%in%

library(dplyr)
RUVDM %>% 
    mutate(Extrac = case_when(
                  V015 %in% c(10, 11, 4, 5) ~ 1, TRUE ~ 0))