[解決済み] ミューテートパイプのcase_when

質問

どうやら 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)))

解決方法は？

バージョン 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