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') |