student loans as percent of federal debt plot

percentagefederaldebt.R

#manually input data, student loan asset, and total federal asset data
student_loan_asset <- c(84.5,92.1,97.7,101.0,108.0,124.4,157.8,231.3,356.1,495.5,613.9,731.2,845.1)
total_federal_asset <- c(1405.4,1397.3,1447.9,1496.5,1581.1,1974.7,2667.9,2883.8,2707.3,2748.3,2968.3,3065.3,3229.8)
date <- c('2003','2004','2005','2006','2007','2008','2009','2010','2011','2012','2013','2014','2015')
#create dataframe
student_loan_federal_asset_data <- data.frame(Date=date,student_loan_asset=student_loan_asset, total_federal_asset=total_federal_asset)
#create percent column
student_loan_federal_asset_data$Percent= student_loan_asset/total_federal_asset
#remove other columns
student_loan_as_percentage_federal_assets <- select(student_loan_federal_asset_data, Percent, Date)
#convert percent to integers
student_loan_as_percentage_federal_assets$Percent <- as.numeric(student_loan_as_percentage_federal_assets$Percent) * 100 
#convert data
student_loan_as_percentage_federal_assets$Date =as.Date(student_loan_as_percentage_federal_assets$Date)
#plot
ggplot(student_loan_as_percentage_federal_assets , aes(x=Date,y=Percent,group='',color='red')) + geom_line() + ggtitle('Student Loans as Percent of Federal Assets') + theme_fivethirtyeight() + theme(legend.title=element_blank()) + theme(axis.title = element_text(), axis.title.x = element_blank()) + ylab('Percent')+  theme(legend.position="none")