Crime rates in NYC

crime_nyc

ctysum <- crime_nyc %>% 
    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))
ctysum_melt <- melt(ctysum, id='Year', value.name = 'Value')
names(ctysum_melt)[2] <- 'Crime.Type'

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