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())