Libraries

## Installing package into '/home/rstudio-user/R/x86_64-pc-linux-gnu-library/3.6'
## (as 'lib' is unspecified)
## Installing package into '/home/rstudio-user/R/x86_64-pc-linux-gnu-library/3.6'
## (as 'lib' is unspecified)

library(tidyverse)

## ── Attaching packages ──────────────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.0     ✓ purrr   0.3.4
## ✓ tibble  3.0.1     ✓ dplyr   0.8.5
## ✓ tidyr   1.0.3     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0

## ── Conflicts ─────────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Load dataset

UN <- read_csv("/cloud/project/HW/UNRATE.csv")

## Parsed with column specification:
## cols(
##   DATE = col_date(format = ""),
##   UNRATE = col_double()
## )

Graph

ggplot(UN, aes(x = DATE, y = UNRATE))+
  geom_line(size = 0.5, linetype = 1, col = 'blue')+ 
  ggtitle("Unemployment Rates in the USA (1948-2020)")+ 
  labs(x = "DATE", y = "Uneployment Rate (%)", caption = "Source: U.S. Bureau of Labor Statistics")