R Markdown
ggplot(TXUR, aes(DATE, TXUR)) +
#geom_point(na.rm=TRUE,color="red")+
geom_line(color="blue")+
theme_solarized()+
labs(title="Unemployment rates in Texas",x="Period",y= "Rate",
subtitle = "",caption = "Data source: FRED_ St Louis FED")

# Nevada
ggplot(NVUR, aes(DATE, NVUR)) +
#geom_point(na.rm=TRUE,color="red")+
geom_line(color="blue")+
theme_economist()+
labs(title="Unemployment rates in Nevada",x="Period",y= "Rate",
subtitle = "",caption = "Data source: FRED_ St Louis FED")

# FLORIDA
ggplot(FLUR, aes(DATE, FLUR)) +
#geom_point(na.rm=TRUE,color="red")+
geom_line(color="blue")+
theme_clean()+
labs(title="Unemployment rates in Florida",x="Period",y= "Rate",
subtitle = "",caption = "Data source: FRED_ St Louis FED")

# CALIFORNIA
ggplot(CAUR, aes(DATE, CAUR)) +
#geom_point(na.rm=TRUE,color="red")+
geom_line(color="blue")+
theme_fivethirtyeight()+
labs(title="Unemployment rates in California",x="Period",y= "Rate",
subtitle = "",caption = "Data source: FRED_ St Louis FED")

# NEW YORK STATE
ggplot(NYUR, aes(DATE, NYUR)) +
#geom_point(na.rm=TRUE,color="red")+
geom_line(color="blue")+
theme_economist_white()+
labs(title="Unemployment rates in New York State",x="Period",y= "Rate",
subtitle = "",caption = "Data source: FRED_ St Louis FED")
