条件付き突然変異体by dplyr

Question

私のデータセットに新しい列を作成したい：i）単語自体が "vi"で始まる場合、最後の1文字を削除する。 ii）単語自体が "vi"で始まらない場合は、最後の2文字を削除します。

iris$Species <- as.character(iris$Species) 
iris$Species_mod <- substr(iris$Species, 
          1, 
          ifelse(grepl('^vi',iris$Species), 
            nchar(iris$Species)-1, 
            nchar(iris$Species)-2)) 

しかし、私はdplyrに mutate、 if_elseと matchesを解読に苦労を持っている：私は以下のように、Rでその上で動作する方法を知っています。誰も私を啓発することはできますか？ありがとう！

Answer 1

同じ考え、あなたが明示的に文字列

iris = mutate(iris, Species_mod = substr(Species, 1, nchar(as.character(Species)) - 
    ifelse(grepl('^vi', Species), 1, 2))) 

Answer 2

にあなたの係数を変換する必要がある以外、あなたが何か試すことができます。

iris %>% 
    mutate(Species = as.character(Species)) %>% 
    rowwise() %>% 
    mutate(species2 = case_when(
    Species == 'vi%' ~ substr(Species, 0, nchar(Species) - 1), 
    Species != 'vi%' ~ substr(Species, 0, nchar(Species) - 2) 
))