CA and NY public systems mapping for IPEDS

README.md

I could not figure out how to get a mapping table for IPEDS ID to system out of the IPED data center. So instead I had to rebuild it by downloading data from NY and CA and adding the "System" varaible in the output. From there I used the following in R to create a "cleaned" system value since it was clear the IPEDS data system didn't provide exactly the system labels I was hoping for:

df %>% 
  mutate(
    system_cleaned = case_when(
      (str_detect(tolower(.$system), 'state university of new york') | 
         str_detect(tolower(.$system), 'suny')
       ) ~ 'SUNY',
      (str_detect(tolower(.$system), 'city university of ny') |
         str_detect(tolower(.$system), 'cuny')
       ) ~ 'CUNY',
      (str_detect(.$system, 'The University of California')) ~ 'UC',
      (.$state == 'CA' & 
         (str_detect(tolower(.$system), 'cali[i]?fornia state university') |
            # added this second detect just in case but the first captures most if not all
            str_detect(tolower(.$system), 'csu')
          )
       ) ~ 'CSU',
      # CCS system labels are the most inconcistent
      (.$state == 'CA' &
         (str_detect(tolower(.$system), 'california community colleges') |
            str_detect(tolower(.$system), 'community college system') |
            str_detect(tolower(.$system), 'community college dist') |
            str_detect(tolower(.$system), 'ccd') |
            str_detect(tolower(.$system), 'community college')
         )
      ) ~ 'CCS',
      TRUE ~ 'NA')) %>% 
  # only concerned with correctly labeled data
  filter(system_cleaned %in% c('CU', 'CCS', 'CSU', 'CUNY', 'SUNY'))

publicsystems.csv