ggplot2 practice 9 lineplot

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

web<- "https://www.bls.gov/opub/ted/2018/55-percent-of-16-to-24-year-olds-employed-in-july-2018.htm"
webcode<- getURL(web)
webhtml<- htmlParse(webcode, asText = T)
tables <- readHTMLTable(webhtml , header = T , colClasses = c("numeric" , "numeric","numeric","numeric","numeric","numeric","numeric","numeric"))

NAs introduced by coercionNAs introduced by coercionNAs introduced by coercionNAs introduced by coercionNAs introduced by coercionNAs introduced by coercionNAs introduced by coercion

tables<- tables[[1]]
tables<- tbl_df(tables)
tables

tables[1,2]<- 58.3
tables[1,3]<- 60.1
tables[1,4]<- 56.6
tables[1,5]<- 62.6
tables[1,6]<- 41.7
tables[1,7]<- 43.8
tables[1,8]<- 53.4
tables

tables_sex<- tables[,c(1,2,3,4)]
tables_race<- tables[,c(1,2,5:8)]
tables_sex

tables_race

tables_sex<- gather(tables_sex , key = "Types" , value = "Value" , -1)
tables_race<- gather(tables_race , key = "Types" , value = "Value" , -1)
tables_sex

tables_race

p_sex<- ggplot(tables_sex,aes(x= Year , y = Value , col = Types))

Warning message:
In strsplit(code, "\n", fixed = TRUE) :
  input string 1 is invalid in this locale

p_race<- ggplot(tables_race,aes(x= Year , y = Value , col = Types))
p_sex + geom_point() + theme_classic() + scale_y_continuous(expand = c(0,0), limits = c(30,70)) + labs(title= "Employment–population ratios of 16- to 24-year-olds in July, 2003–18,\n not seasonally adjusted") + geom_smooth(se = F)

p_race + geom_point() + theme_classic() + scale_y_continuous(expand = c(0,0), limits = c(30,70))+ labs(title= "Employment–population ratios of 16- to 24-year-olds in July, 2003–18,\n not seasonally adjusted") + geom_smooth(se = F)