Working with WICHE projections of high school graduates

https://knocking.wiche.edu/data

Direct link to raw data download (xlsx):

https://knocking.wiche.edu/s/All-Enrollment-and-Graduate-Projections-zlxg.xlsx

# Read the excel data into R

require('readxl')

excel_sheets('All+Enrollment+and+Graduate+Projections.xlsx')

df <- read_excel('All+Enrollment+and+Graduate+Projections.xlsx', sheet = 'Projections')

The Data Notes sheet serves as the codebook

# Get estimated graduates for your state

df %>% 
  filter(STABR == 'NJ' & TYPE %in% c('G','NP')) %>% # G = public, NP = Private
  group_by(SURVYEAR) %>% 
  summarize(grads = sum(DPL))

You could easily pipe this into a visualization by adding %>% and something like this to the end of the chain above

ggplot(aes(SURVYEAR, grads)) + geom_point() # customize further