ggplot2 练习7-折线堆积图

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

web<- "https://www.bls.gov/opub/ted/2018/long-term-unemployed-account-for-20-3-percent-of-unemployed-in-march-2018-down-from-a-year-earlier.htm"
webcode<- getURL(web)
webhtml<- htmlParse(webcode, asText = T)
tables<- readHTMLTable(webhtml, header = T, colClasses = c("character" , "numeric","numeric","numeric","numeric"))

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

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

tables[1,2]<-34.1
tables[1,3]<-32.1
tables[1,4]<-15.4
tables[1,5]<-18.5
tables

Sys.setlocale("LC_TIME" , "us")

[1] "English_United States.1252"

tables$Month<- paste("01" , tables$Month , sep = "-")
tables$Month<- as.Date(tables$Month , "%d-%b %Y")
tables<- gather(tables, key = "Types" ,value = "Percentage" , -1)
tables$Types<- as.factor(tables$Types)
tables

mycolors<-brewer.pal(4, "Set3")
p<- ggplot(tables, aes( x= Month , y = Percentage , fill = Types , col = Types))
p+
  geom_area(alpha = 0.65)+
  theme_classic() + 
  scale_y_continuous(expand = c(0,0)) +
  scale_x_date(expand = c(0,0))+
  scale_fill_manual(values = mycolors)+
    scale_color_manual(values = mycolors) + 
  theme(legend.position = "top" ) +
  labs(title = "Unemployed persons by duration of unemployment, percent distribution\nJanuary 2008–March 2018" , x = "Years")

NA