r - case_when 在 mutate 管道中

Question

好像dplyr::case_when与 dplyr::mutate 中的其他命令不同称呼。例如:

library(dplyr)

case_when(mtcars$carb <= 2 ~ "low",
          mtcars$carb > 2 ~ "high") %>% 
  table

作品:

.
high  low 
  15   17 

但是把 case_when在 mutate链:

mtcars %>% 
  mutate(cg = case_when(carb <= 2 ~ "low",
                        carb > 2 ~ "high"))

你会得到:

 Error: object 'carb' not found

虽然这很好用

mtcars %>% 
  mutate(cg = carb %>% 
           cut(c(0, 2, 8)))

Answer 1

截至版本 0.7.0的 dplyr , case_when在 mutate 内工作如下:

library(dplyr) # >= 0.7.0
mtcars %>% 
  mutate(cg = case_when(carb <= 2 ~ "low",
                        carb > 2  ~ "high"))

更多信息: http://dplyr.tidyverse.org/reference/case_when.html