Mapping_Cluster

library(leaflet)
df <- data.frame(lat=c(runif(n = 500, min = 39.25, max = 39.35)),lng=c(runif(n = 500, min = -76.65, max = -76.58)))

df %>% 
  leaflet() %>% 
  addTiles() %>%
  addMarkers(clusterOptions = markerClusterOptions())