This homework is due Monday February 10th.
You may not earn more than a 100% on this assignment.
The first step in the process of turning information into knowledge process is to summarize and describe the raw information - the data. In this assignment we explore data on college majors and earnings, specifically the data begin the FiveThirtyEight story “The Economic Guide To Picking A College Major”.
These data originally come from the American Community Survey (ACS) 2010-2012 Public Use Microdata Series. While this is outside the scope of this assignment, if you are curious about how raw data from the ACS were cleaned and prepared, see the code FiveThirtyEight authors used.
We should also note that there are many considerations that go into picking a major. Earnings potential and employment prospects are two of them, and they are important, but they don’t tell the whole story. Keep this in mind as you analyze the data.
Make sure to
We’ll use the tidyverse package for much of the data wrangling and visualization and the scales package for better formatting of labels on visualizations.
Warning: package 'ggplot2' was built under R version 4.3.3Warning: package 'tidyr' was built under R version 4.3.3Warning: package 'readr' was built under R version 4.3.3Warning: package 'dplyr' was built under R version 4.3.3Warning: package 'stringr' was built under R version 4.3.3Warning: package 'lubridate' was built under R version 4.3.3Warning: package 'scales' was built under R version 4.3.3The data originally come from the fivethirtyeight package but we’ll use versions of the data that have been slightly modified to better suit this assignment. You can load the two datasets we’ll be using for this analysis with the following:
You can also take a quick peek at your data frames and view their dimensions with the glimpse function.
glimpse(major_income_undergrad)Rows: 172
Columns: 12
$ major_code <dbl> 5601, 6004, 6211, 2201, 2001, 32…
$ major <chr> "Construction Services", "Commer…
$ major_category <chr> "Industrial Arts & Consumer Serv…
$ undergrad_total <dbl> 86062, 461977, 179335, 37575, 53…
$ undergrad_employed <dbl> 73607, 347166, 145597, 29738, 43…
$ undergrad_employed_fulltime_yearround <dbl> 62435, 250596, 113579, 23249, 34…
$ undergrad_unemployed <dbl> 3928, 25484, 7409, 1661, 3389, 5…
$ undergrad_unemployment_rate <dbl> 0.05066099, 0.06838588, 0.048422…
$ undergrad_p25th <dbl> 47000, 34000, 35000, 29000, 3600…
$ undergrad_median <dbl> 65000, 48000, 50000, 41600, 5200…
$ undergrad_p75th <dbl> 98000, 71000, 75000, 60000, 7800…
$ undergrad_sharewomen <dbl> 0.09071251, 0.69036529, 0.651659…glimpse(major_income_grad)Rows: 172
Columns: 11
$ major_code <dbl> 5601, 6004, 6211, 2201, 2001, 6206, 1…
$ major <chr> "Construction Services", "Commercial …
$ major_category <chr> "Industrial Arts & Consumer Services"…
$ grad_total <dbl> 9173, 53864, 24417, 5411, 9109, 19099…
$ grad_employed <dbl> 7098, 40492, 18368, 3590, 7512, 15157…
$ grad_employed_fulltime_yearround <dbl> 6511, 29553, 14784, 2701, 5622, 12304…
$ grad_unemployed <dbl> 681, 2482, 1465, 316, 466, 8324, 473,…
$ grad_unemployment_rate <dbl> 0.08754339, 0.05775585, 0.07386679, 0…
$ grad_p25th <dbl> 110000, 89000, 100000, 85000, 83700, …
$ grad_median <dbl> 75000, 60000, 65000, 47000, 57000, 80…
$ grad_p75th <dbl> 53000, 40000, 45000, 24500, 40600, 50…These two datasets have a trove of information. Three variables are common to both datasets:
major_code: Major code, FO1DP in ACS PUMSmajor: Major descriptionmajor_category: Category of major from Carnevale et alThe remaining variables start with either grad_ or undergrad_ suffix, depending on which dataset they are in. The descriptions of these variables is as follows.
*_total: Total number of people with major*_sample_size: Sample size (unweighted) of full-time, year-round ONLY (used for earnings)*_employed: Number employed (ESR == 1 or 2)*_employed_fulltime_yearround: Employed at least 50 weeks (WKW == 1) and at least 35 hours (WKHP >= 35)*_unemployed: Number unemployed (ESR == 3)*_unemployment_rate: Unemployed / (Unemployed + Employed)*_p25th: 25th percentile of earnings*_median: Median earnings of full-time, year-round workers*_p75th: 75th percentile of earningsFinally, undergrad_sharewomen is the proportion of women with the major, and we only have this information for undergraduates.
Let’s think about some questions we might want to answer with these data:
In the following exercises we aim to answer some of these questions.
Which majors have the lowest unemployment rate? Answer the question using a single data wrangling pipeline and focusing on undergraduates (major_income_undergrad). The output should be a tibble with the columns major, and undergrad_unemployment_rate, with the major with the lowest unemployment rate on top, and displaying the majors with the lowest 5 unemployment rates. Include a sentence listing the majors and the unemployment rates (as percentages).
Which majors have the highest percentage of women? Answer the question using a single data wrangling pipeline and focusing on undergraduates (major_income_undergrad). The output should be a tibble with the columns major, and undergrad_sharewomen, with the major with the highest proportion of women on top, and displaying the majors with the highest 5 proportions of women. Include a sentence listing the majors and the percentage of women with the major.
Render, commit (with a descriptive and concise commit message), and push. Make sure that you commit and push all changed documents and your Git pane is completely empty before proceeding.
How much are college graduates (those who finished undergrad) making? For this exercise, focus on undergraduates (major_income_undergrad).
Note: You can earn +2 extra credit points for using scale_x_continuous(), making the x axis have the appropriate $ label and units (K). Example: $50k.
This document may help under the section label currencies. Within label_dollar(), explore scale = and suffix =.
Calculate the mean and median for median income. Based on the shape of the histogram, determine which of these summary statistics is useful for describing the distribution. Justify your answer.
Describe the distribution of median incomes of college graduates across various majors based on your histogram from part (a) and incorporating the statistic you chose in part (b) to help your narrative. Hint: Mention shape, center, spread, any unusual observations.
Now is a good time to render, commit (with a descriptive and concise commit message), and push again. Make sure that you commit and push all changed documents and your Git pane is completely empty before proceeding.
One of the sections of the FiveThirtyEight story is “All STEM fields aren’t the same”. Let’s see if this is true. Once again, focus on undergraduates (major_income_undergrad) for this exercise.
First, let’s create a new vector called stem_categories that lists the major categories that are considered STEM fields.
stem_categories <- c(
"Biology & Life Science",
"Computers & Mathematics",
"Engineering",
"Physical Sciences"
)Then, fill in the partial code to create a new variable in our data frame indicating whether a major is STEM or not. Note that you need to figure out the logical operator that goes into ___.
major_income_undergrad <- major_income_undergrad |>
mutate(major_type = if_else(major_category ___ stem_categories, "STEM", "Not STEM"))In a single pipeline, determine which STEM majors’ median earnings are less than $55,000. Your answer should be a tibble with the columns major, major_type, and undergrad_median, arranged in order of descending undergrad_median.
Once again, render, commit, and push. Make sure that you commit and push all changed documents and your Git pane is completely empty before proceeding.
Finally, we want to compare median incomes of STEM majors with and without a graduate degree in their major.
To do so, we will first join data that contains information on median incomes of those with undergraduate and graduate degrees. Join the major_income_undergrad and the major_income_grad data sets by major_code. Join them in such a way where only rows that include the same major_code from each data set are included. Name the new data set major_income.
Create a new variable called grad_multiplier – the ratio of median income of those with a graduate degree divided by median income of those with an undergraduate degree, for STEM majors. The result should be tibble with the variables major, grad_multiplier, grad_median, and undergrad_median. The results should be displayed in descending order of grad_multiplier and display the STEM majors with top 10 grad_multiplier.
Render, commit, and push one last time. Make sure that you commit and push all changed documents and your Git pane is completely empty before proceeding.