case_when in muate pipe

Question

Es scheint dplyr::case_when verhält sich nicht wie andere Befehle in einem dplyr::mutate Aufruf. Zum Beispiel:

library(dplyr) 

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

Werke:

. 
high low 
    15 17 

Aber setzen case_when in einer mutate Kette:

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

und Sie erhalten:

Error: object 'carb' not found 

während das funktioniert gut

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

Answer 1

Wir .$

mtcars %>% 
    mutate(cg = case_when(.$carb <= 2 ~ "low", .$carb > 2 ~ "high")) %>% 
    .$cg %>% 
    table() 
# high low 
# 15 17 

Answer 2

Mit Dank verwenden, um @sumedh: @hadley has explained, dass dies ein bekanntes Manko von case_when:

case_when() is still somewhat experiment and does not currently work inside mutate() . That will be fixed in a future version.

Answer 3

Neben @ akrun Antwort oben , beachte, dass die schließende Klammer für die case_when()nicht auf eine eigene Zeile gesetzt werden kann .

Zum Beispiel funktioniert das OK:

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

aber nicht:

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

Answer 4

Ab Version 0.7.0 von dplyr, case_when Werke im mutate wie folgt:

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

Für weitere Informationen: http://dplyr.tidyverse.org/reference/case_when.html