library(leaflet)
## Warning: пакет 'leaflet' был собран под R версии 4.2.3
df <- data.frame(lat = runif(500, min = 39.25, max = 39.35),
lng = runif(500, min = -76.65, max = -75.55))
leaflet(df) %>%
addTiles() %>%
addMarkers(clusterOptions = markerClusterOptions())