Написал case_when операторов для создания нового столбца с присваиванием значений моим условным оператором.Тем не менее, я получаю сообщение об ошибке: неожиданно ")" в ".
Я не вижу ничего плохого в моих закрывающих скобках
brfss2013 <- brfss2013 %>%
mutate(mentalHealth = cut(menthlth,breaks=breaks4,labels=labels4,include.lowest=TRUE)) %>%
mutate(incomeLev = case_when(grepl("*$15,000|*$20,000",income2)~"0-$20,000"
grepl("*$25,000|*$35,000",income2)~"$25,000-$35,000"
grepl("*$50,000|*than $75,000",income2)~"$50,000-$75,000"
income2 == "$75,000" ~ "Over $75,000"
))