heres a starter example
library(dplyr)
library(stringr)
(example_data <- select(
dplyr::starwars,
name, height
))
(ex_d2 <- mutate(example_data,
is_a_skywalker = str_detect(
string = name,
pattern = "Skywalker"
)
) %>% arrange(desc(is_a_skywalker),
name))