Map

Things to do if you got into a collison.

• If you need to pay a Traffic Violation Bureau Traffic Ticket. You can pay a TVB ticket online, by mail or at a TVB office.
• If your driver’s license been revoked, you can Schedule a Road Test to renew your driver’s license.
• If your car has been crashed, you may need a new car and Renew a Vehicle Registration Online.

Accident Number Across the Map

Number of accident differs according to places.To be specific, more people injured on highway. Brooklyn and Bronx had more injured cases than other boroughs. The map constructed by injured cases refected the severity of car collsions among boroughs. Hover on the map to explore the cases

data_2018 = tidy_data
map_data = rename(data_2018, long = latitude, lat = longitude) 
pal <- colorNumeric(
  palette = "Accent",
  domain = map_data$persons_injured)
map_data %>% 
  filter(persons_injured > 0) %>% 
  filter(!(lat < "-70" | lat >= "-75")) %>% 
  mutate(
    label = str_c("<b>vehicle type: ", vehicle_type, "</b><br>Month: ", month , sep = "") ) %>%
  leaflet() %>% 
  addTiles() %>%
  addProviderTiles(providers$CartoDB.Positron) %>% 
  addLegend("bottomright", pal = pal, values = ~persons_injured,
    title = "Persons Injured",
    opacity = 1
  ) %>% 
  addCircleMarkers(
    ~lat, ~long,
    color = ~pal(persons_injured),
    radius = 0.5,
    popup = ~ label)