Vision Zero Visualization Blog Post Gist

Vision Zero - Mapping 2

# Top Locations with most deaths
ggmap(nyc_map, extent = 'device') +
  geom_point(data = mvc_dth,
             aes(x = LON, y = LAT,
                 size = KILLED_V,
                 fill = KILLED_V),
             shape = 21, alpha = .5) +
  scale_size_area(max_size = 10) +
  scale_fill_continuous(low = 'yellow', high = 'red') +
  geom_text(data = mvc_dth, 
            aes(x = LON, y = LAT, label = KILLED_V),
            size = 4, check_overlap = T, fontface = "bold") +
  theme(legend.position = 'none') +
  ggtitle('Deadlist Locations July 2012 - June 2016')