categorize_job <- function(description) { if (grepl("communication|inform|listen", description, ignore.case = TRUE)) { return("Communication : honest information dissemination") } else if (grepl("safety|health|protect", description, ignore.case = TRUE)) { return("Public Safety and Health: public protection") } else if (grepl("policy|leadership|govern", description, ignore.case = TRUE)) { return("Leadership and Governance: policy, implementation, decision-making") } else if (grepl("resource|budget|manage", description, ignore.case = TRUE)) { return("Resource Management: infrastructure, resource allocation") } else if (grepl("hope|resilience|morale", description, ignore.case = TRUE)) { return("Emotional and Psychological Well-being: hope, resilience, public morale") } else { return("Uncategorized") } } my_data <- my_data %>% mutate(Category = sapply(`What do you think is the single most important part of your job as a public official?`, categorize_job))