dplyrでmutateを使用したifelse文

Question

次のコードをRに書いて、うまくいきます。しかし、いくつかのレベル（> 6）の因子変数に同様のコードを適用しなければならないと仮定すると、ifelseステートメントは読みにくいことがあります。コードを読むのは簡単ですが、依然としてdplyrを使用する他のより効率的な方法があるのだろうかと思います。

library(dplyr) 
    mtcars %>% arrange(gear) %>% 
    mutate(gearW = ifelse(gear == 3, "Three", ifelse(gear == 4, "Four", "Five"))) 

Answer 1

我々はfactor

mtcars %>% 
    arrange(gear) %>% 
    mutate(gearW = as.character(factor(gear, levels=3:5, 
     labels= c("three", "four", "five")))) 

を使用するか、別のオプションは、english

library(english) 
mtcars %>% 
     arrange(gear) %>% 
     mutate(gearW = as.character(english(gear))) 

EDITです：@デビッドArenburgさんと@Konradルドルフのコメントからas.characterを追加しました。