R 使用 Dplyr 根据其他 5 列的值创建包含 6 个可能值中的 1 个的列

Question

在 R 中，我试图创建一个名为 model 的列，其中的值取决于最多 5 个其他列的值。

列是运动、汽车、SUV、旅行车、小型货车、皮卡。 如果这 5 列是该组的成员，则其值为 1，否则为 0。我想创建一个名为 model 的列，如果 Sport = 1,2 如果 SUV = 1，则等于 1，如果 Wagon = 则等于 3 1, 4 if Minivan = 1 , 5 if Pickup = 1 否则如果所有 5 列都等于 0 那么模型将 = 0。我尝试使用 case 语句并使用 dplyr 进行变异

cars %>%
mutate(model == case_when(Sport == 1, ~ '1' 
                ,case_when(SUV == 1, ~ '2' 
                ,case_when(Wagon == 1, ~'3' 
                  ,case_when(Minivan == 1, ~'4' 
                  ,case_when(Pickup == 1, ~ '5'
                  ,TRUE ~ 0))))))

但我收到了这个错误：

>     error: Problem with `mutate()` input `..1`.
   i `..1 = ==...`.
  x Case 1 (`Pickup == 1`) must be a two-sided formula, not a logical vector.

我已经包含了指向以下文件的链接。 [04cars.csv 文件]

Answer 1

您不嵌套case_when语句，您只需将所有表达式传递给对case_when一次调用

cars %>%
  mutate(model = case_when(
    Sport == 1 ~ '1',
    SUV == 1 ~ '2',
    Wagon == 1 ~'3',
    Minivan == 1 ~'4',
    Pickup == 1 ~ '5'
    TRUE ~ 0))

将使用每个值的第一个匹配条件。