Crimes rates in NYS

crime_nys

stavg <- crime_nys %>% 
    select(Year, Index.Rate, Property.Rate, Violent.Rate,
           Firearm.Rate) %>%
    group_by(Year) %>%
    summarise(Index.Rate=mean(Index.Rate),
              Property.Rate=mean(Property.Rate),
              Violent.Rate=mean(Violent.Rate),
              Firearm.Rate=mean(Firearm.Rate))
stavg_melt <- melt(stavg, id='Year', value.name = 'Value')
names(stavg_melt)[2] <- 'Crime.Type'

p3 <- ggplot(stavg_melt, aes(x=Year, y=Value)) + 
    geom_line(aes(color=Crime.Type),size=1) +
    ggtitle('Trend of Crime Rates in New York State (minus NYC)') +
    xlab('Year') +
    ylab('Crime Rate (Incidents per 100,000 ppl)') + 
    theme_minimal()
p3