Crime Map for City of Atlanta, Georgia, United States.

Data obtain from https://www.atlantapd.org/i-want-to/crime-data-downloads on 2020-03-01 18:18:39

CobraData$popup <- paste("<b>Incident #: </b>", CobraData$`Report Number`, "<br>",
                   "<b>Crime: </b>", CobraData$`UCR Literal`, "<br>",
                   "<b>Date: </b>", CobraData$`Report Date`, "<br>",
                   "<b>Address: </b>", CobraData$Location,"<br>")
                   
leaflet(CobraData, width = "100%") %>% addTiles() %>% 
        addTiles(group = "OSM (default)") %>% 
        addProviderTiles(provider = "Esri.WorldStreetMap", group = "World Street Map") %>% 
        addProviderTiles(provider = "Esri.WorldImagery",group = "World Imagery") %>% 
        addProviderTiles(provider = "Esri.WorldTopoMap",group = "World Topography") %>% 
        addProviderTiles(provider = "CartoDB.DarkMatter",group = "Dark") %>% 
        addMarkers(lng = ~Longitude,lat = ~Latitude,popup = CobraData$popup, 
                   clusterOptions = markerClusterOptions()) %>% 
        addLayersControl(
                baseGroups = c("OSM (default)", "World Street Map", "World Imagery", "World Topography", "Dark"), 
                options = layersControlOptions(collapsed = FALSE)
        )