hate crimes version 3 line graph

library(tidyverse)

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.2.1 --

## v ggplot2 3.2.1     v purrr   0.3.2
## v tibble  2.1.3     v dplyr   0.8.3
## v tidyr   1.0.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.4.0

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

getwd()

## [1] "C:/Users/Don A/Documents/Don's files/MC"

change to correct one and grab new csv file

setwd("C:/Users/Don A/Documents/Don's files/MC")
hatecrimes.data <- read_csv("hateCrimes2010v3.csv")

## Parsed with column specification:
## cols(
##   year = col_double(),
##   crimes = col_double()
## )

use ggplot

p1 <- ggplot() + geom_line(aes(y = crimes, x = year),
                           data = hatecrimes.data)
p1

add title, caption, and new axis names

p1 + labs(title = "New York State Total Hate Crimes Per Year", x = "Year", y = "Hate Crimes", caption = "Thank you storybench.org")