Last active
July 25, 2016 18:06
-
-
Save sjstebbins/2942b9b64a6c28cbf1989a099dfe8b96 to your computer and use it in GitHub Desktop.
Graduate Un/Underemployment Rates
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#load data from csv | |
grad_unemployment_data <- read.delim("https://raw.githubusercontent.com/sjstebbins/ExploratoryDataViz/master/data/graduateunemployment.csv") | |
#convert date | |
grad_unemployment_data$Date = as.Date(grad_unemployment_data$Date) | |
#filter for after 2003 | |
grad_unemployment_data <- filter(grad_unemployment_data, Date >= "2003-01-01") | |
#melt to single column | |
grad_unemployment_data <- melt(grad_unemployment_data, id = 'Date',measure.vars = names(select(grad_unemployment_data,-Date))) | |
#plot | |
ggplot(grad_unemployment_data, aes(x=Date,y=value, group=variable, color=variable)) + geom_line() + ggtitle('Graduate Unemployment & Underemployment') + theme_fivethirtyeight() + theme(legend.title=element_blank()) + theme(axis.title = element_text(), axis.title.x = element_blank()) + ylab('Percent') |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment