Lab Homework #12

Update the levels of rincome in gss_cat into three categories, $10000 or more, less than $10000 and Others.

updated_gass_cat <- gss_cat %>%
  mutate(rincome = fct_collapse(rincome,
                                "$10000 or more" = c("$10000 - 14999", "$15000 - 19999", "$20000 - 24999", "$25000 or more"),
                                "less than $10000" = c("$8000 to 9999", "$7000 to 7999", "$6000 to 6999", "$5000 to 5999", "$4000 to 4999", "$3000 to 3999", "$1000 to 2999", "Lt $1000"), 
                                "Others" = c("Not applicable", "No answer", "Don't know", "Refused")
                                ))

levels(updated_gass_cat$rincome)

## [1] "Others"           "$10000 or more"   "less than $10000"