ggplot2 practice 10 barplot

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

web<- "https://www.bls.gov/opub/ted/2018/3-point-8-percent-of-workers-were-contingent-in-may-2017.htm"
webcode <- getURL(web)
webhtml<- htmlParse(webcode ,asText = T)
tables<- readHTMLTable(webhtml , header =  T ,colClasses = c("character" , "numeric"))

NAs introduced by coercion

tables<- tables[[1]]
talbes<- tbl_df(tables)
tables[1,2]<- 4.9
tables

tables$Year<- paste("01" , tables$Year , sep = '-')
Sys.setlocale("LC_TIME" , "us")

[1] "English_United States.1252"

tables$Year<- as.Date(tables$Year , "%d-%b %Y")
tables

mycolors<- brewer.pal(6, "Set3")
ggplot(tables, aes(as.factor(Year) , `Percent of total employed`)) + 
  geom_bar(stat = "identity" , fill = mycolors , col = "darkgrey" , alpha=0.75) + 
  theme_classic() + 
  labs(title = 'Contingent workers as a percent of total employed' , x= "Year " , y = "Percent of total employed \n(%)") + 
  scale_y_continuous(expand= c(0,0))  + 
  theme(line = element_line(size = 1))