Leaflet Map with Clusters

# Make sure leaflet is available
if (!requireNamespace("leaflet", quietly = TRUE)) install.packages("leaflet")
library(leaflet)

# Built-in dataset of earthquake locations
data(quakes)

# Simple clustered map (200 points to keep it light)
leaflet(quakes[1:200, ]) %>%
  addTiles() %>%
  addMarkers(
    ~long, ~lat,
    popup = ~paste("Magnitude:", mag, "<br>Depth:", depth, "km"),
    clusterOptions = markerClusterOptions()
  )