ggplot2 practice11 groupbarplot

library(RCurl)
library(XML)
library(tidyr)
library(dplyr)
library(RColorBrewer)
library(ggplot2)

web<- "https://www.bls.gov/opub/ted/2018/77-point-6-percent-of-2017-bachelors-degree-recipients-were-employed-in-october-2017.htm"
webcode<- getURL(web)
webhtml<- htmlParse(webcode, asText = T)
tables<- readHTMLTable(webhtml, header =  T, colClasses = c("character", "numeric" , "numeric", "numeric"))

NAs introduced by coercionNAs introduced by coercionNAs introduced by coercion

tables<- tables[[1]]
tables<- tbl_df(tables)
tables[1,2]<- 80.0
tables[1,3]<- 77.6
tables[1,4]<- 90.3
tables

tables<- gather(tables , key = "Degree" , value = "Ratio" , -1)
tables

mycolors<- brewer.pal(3, "Set2")
ggplot(tables, aes(x= Year , y = Ratio , fill = Degree)) +
  geom_bar(stat = 'identity' ,position = "stack", width = 0.8)+
  theme_classic() +
  scale_y_continuous(expand = c(0,0)) +
  labs(title = "Employment–population ratios for recent college degree recipients ages 20 to 29,\n by degree type, October 2007–October 2017 ") +
  scale_fill_manual(values = mycolors) + 
  theme(legend.position = "top")