catholic_presence <- case_when(swiss$Catholic < 30 ~ "Low rate", swiss$Catholic >= 30 & swiss$Catholic < 70 ~ "Medium rate", swiss$Catholic >= 70 ~ "High rate")
swiss %>% mutate(Canton= rownames(.), "Education Level" = as.factor(edu_level), "Catholic Presence" = as.factor(catholic_presence)) %>% ggplot() + geom_point(aes(x=Examination, y=Agriculture, color=Canton)) + facet_grid("Education Level" ~ "Catholic Presence")
Why does facet_grid create one single plot instead of six with "Low","Medium" and "High" values of both Education and Catholic? Thank you very much in advance, still learning!!