Как изменить столбец в Tidyverse для «если текст содержит текстовую строку»

Question

Как мне отредактировать этот код, чтобы заменить == на, если Вид содержит %setosa%

new_iris <- iris %>% 
   mutate(flag = ifelse(Species == "setosa", 1, 0)  # add a new column
          )

Answer 1

Чтобы остаться в тидиверсе, вы можете использовать stringr.

library(dplyr)
library(stringr)

 iris %>%
    mutate(flag = str_detect(Species, "setosa"))

Answer 2

Мы можем использовать %like% от data.table

library(dplyr)
library(data.table)
iris %>% 
     mutate( flag = as.integer(Species %like% "setosa") )