A Rendered Leaflet Map Plotting the Last 30 Days of Crime Incidents in Washington, D.C.

Clicking on Individual Clusters will zoom the cluster. Clicking on individual markers will provide additional detail on the incident

data: DC Crime - Last 30 Days Open Data DC

## Date in ISO8601 format; converting timezone from UTC to "America/New_York".

Render the leaflet map

points <- cbind(dc_crime_clean$X,dc_crime_clean$Y)
leaflet() %>%
  addProviderTiles("OpenStreetMap.Mapnik",
                   options = providerTileOptions(noWrap = TRUE)
  ) %>%
  addMarkers(data = points,
             popup = paste0("<strong>Report Date: </strong>",
                            dc_crime_clean$DateClean,
                            "<br><strong>Offense: </strong>", 
                            dc_crime_clean$OFFENSE, 
                            "<br><strong>method: </strong>", 
                            dc_crime_clean$METHOD,
                            "<br><strong>shift: </strong>",
                            dc_crime_clean$SHIFT,
                            "<br><strong>blocksite address: </strong><br>",
                            dc_crime_clean$BLOCKSITEADDRESS
             ),
             clusterOptions = markerClusterOptions()
  )