hooting <- mutate(shooting,zip_code_band = fct_collapse(zip_code, "1460"=c("14604","14605","14606","14607","14608","14609"), "1461"=c("14610","14611","14612","14613","14614","14615","14616","14617","14618","14619"), "1462"=c("14620","14621")))