This is very similar to the answer given here, but I cannot figure out why starts_with does not work:
diamonds %>% filter(across(clarity, ~ grepl(\'^S\',