Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
2 contributors

Users who have contributed to this file

@jthomasmock @kierisi
114 lines (78 sloc) 5.97 KB

College tuition, diversity, and pay

College tuition data is somewhat difficult to find - with many sites limiting it to online tools.

The data this week comes from many different sources but originally came from the US Department of Education. The most comprehensive and easily accessible data cames from Tuitiontracker.org who allows for a .csv download! Unfortunately it's in a very wide format that is not ready for analysis, but tidyr can make quick work of that with pivot_longer(). It has a massive amount of data, I have filtered it down to a few tables as seen in the attached .csv files. Tuition and diversity data can be quickly joined by dplyr::left_join(tuition_cost, diversity_school, by = c("name", "state")). Some of the other tables can also be joined but there may be some fuzzy matching needed.

Historical averages from the NCES - cover 1985-2016.

Tuition and fees by college/university for 2018-2019, along with school type, degree length, state, in-state vs out-of-state from the Chronicle of Higher Education.

Diversity by college/university for 2014, along with school type, degree length, state, in-state vs out-of-state from the Chronicle of Higher Education.

Example diversity graphics from Priceonomics.

Average net cost by income bracket from TuitionTracker.org.

Example price trend and graduation rates from TuitionTracker.org

Salary potential data comes from payscale.com.

Get the data here

# Get the Data

tuition_cost <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-03-10/tuition_cost.csv')

tuition_income <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-03-10/tuition_income.csv') 

salary_potential <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-03-10/salary_potential.csv')

historical_tuition <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-03-10/historical_tuition.csv')

diversity_school <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-03-10/diversity_school.csv')

# Or read in with tidytuesdayR package (https://github.com/thebioengineer/tidytuesdayR)
# PLEASE NOTE TO USE 2020 DATA YOU NEED TO USE tidytuesdayR version ? from GitHub

# Either ISO-8601 date or year/week works!

# Install via devtools::install_github("thebioengineer/tidytuesdayR")

tuesdata <- tidytuesdayR::tt_load('2020-03-10')
tuesdata <- tidytuesdayR::tt_load(2020, week = 11)


tuition_cost <- tuesdata$tuition_cost

Data Dictionary

tuition_cost.csv

variable class description
name character School name
state character State name
state_code character State Abbreviation
type character Type: Public, private, for-profit
degree_length character 4 year or 2 year degree
room_and_board double Room and board in USD
in_state_tuition double Tuition for in-state residents in USD
in_state_total double Total cost for in-state residents in USD (sum of room & board + in state tuition)
out_of_state_tuition double Tuition for out-of-state residents in USD
out_of_state_total double Total cost for in-state residents in USD (sum of room & board + out of state tuition)

tuition_income.csv

variable class description
name character School name
state character State Name
total_price double Total price in USD
year double year
campus character On or off-campus
net_cost double Net-cost - average actually paid after scholarship/award
income_lvl character Income bracket

salary_potential.csv

variable class description
rank double Potential salary rank within state
name character Name of school
state_name character state name
early_career_pay double Estimated early career pay in USD
mid_career_pay double Estimated mid career pay in USD
make_world_better_percent double Percent of alumni who think they are making the world a better place
stem_percent double Percent of student body in STEM

historical_tuition.csv

variable class description
type character Type of school (All, Public, Private)
year character Academic year
tuition_type character Tuition Type All Constant (dollar inflation adjusted), 4 year degree constant, 2 year constant, Current to year, 4 year current, 2 year current
tuition_cost double Tuition cost in USD

diversity_school.csv

variable class description
name character School name
total_enrollment double Total enrollment of students
state character State name
category character Group/Racial/Gender category
enrollment double enrollment by category

Cleaning Script

Please see the various .R files.

You can’t perform that action at this time.