ggplot2 practice6-barplot+errorbar

library(RCurl)
library(XML)
library(DT)
web<- "https://www.bls.gov/opub/ted/2016/hospital-workers-suffered-294000-nonfatal-workplace-injuries-and-illnesses-in-2014.htm"
webcode<- getURL(web)
webhtml<- htmlParse(webcode, asText = T)
tables<- readHTMLTable(webhtml, header = T, colClasses = c("factor" , "numeric","numeric","numeric","numeric"))
tables<- tables[[1]]
datatable(tables)

library(tidyr)
tables_thin<- gather(tables, key = "Types" , value = "values" , -1)
datatable(tables_thin)

library(ggplot2)
p<- ggplot(tables_thin, aes(x = Types, y = values))
p + stat_summary(fun.y = mean , geom = "bar" , fill = "steelblue")+
  stat_summary(fun.data = mean_sdl , fun.args = list(mult = 1) , geom = "errorbar" , width = 0.2 ,size = 1 , color = "#464BB4")+
  theme_classic() + 
  theme(text = element_text(face = "bold"),
        line = element_line(size = 1)) + 
  labs(title="Incidence rate of nonfatal occupational injuries and illnesses\nin private industry and in hospitals, by ownership " , x= 'Industry', y = "Incidence Rate\n(%)")+
  scale_y_continuous(expand = c(0,0) , limits = c(0,12))

NA