ct_selection_untitled-2D796A82.R

gg <- cces %>% 
  filter(year >= 2022) %>% 
  mutate(ed3 = frcode(educ == 1 | educ == 2 ~ "HS or Less", 
                      educ == 3 | educ == 4 ~ "Some College", 
                      educ == 5 | educ == 5 ~ "College Degree")) %>% ### <---- This is incorrect. 
  group_by(trad) %>% 
  ct(ed3, wt = weight, show_na = FALSE) 

gg <- cces %>% 
  filter(year >= 2022) %>% 
  mutate(ed3 = frcode(educ == 1 | educ == 2 ~ "HS or Less", 
                      educ == 3 | educ == 4 ~ "Some College", 
                      educ == 5 | educ == 6 ~ "College Degree")) %>% ### <---- It should be this.  
  group_by(trad) %>% 
  ct(ed3, wt = weight, show_na = FALSE)