examples/earthquakes-clusters.R

In crazycapivara/mapboxer: An R Interface to 'Mapbox GL JS'

# https://docs.mapbox.com/mapbox-gl-js/example/cluster/

data_url <- "https://docs.mapbox.com/mapbox-gl-js/assets/earthquakes.geojson"
earthquakes <- sf::st_read(data_url)

map <- earthquakes %>%
  as_mapbox_source(
    cluster = TRUE,
    clusterMaxZoom = 14,
    clusterRadius = 50,
    clusterProperties = list(
      minMag = list("min", c("get", "mag")),
      maxMag = list("max", c("get", "mag"))
    )
  ) %>%
  mapboxer(
    center = c(-103.59179687498357, 40.66995747013945),
    zoom = 3
  ) %>%
  add_navigation_control() %>%
  add_circle_layer(
    circle_color = list(
      'step', c("get", "point_count"),
      "#51bbd6", 100,
      "#f1f075", 750,
      "#f28cb1"
    ),
    circle_radius = list(
      "step", c("get", "point_count"),
      20, 100,
      30, 750,
      40
    ),
    filter = c("has", "point_count"),
    popup = "min mag: {{minMag}}, max mag: {{maxMag}}"
  ) %>%
  add_circle_layer(
    id = "unclustered",
    filter = list("!", c("has", "point_count")),
    circle_color = "red",
    popup = "{{mag}}"
  )

map

### Add a text layer by using the generic 'add_layer' function.
### In this case you need to create a style object where properties
### correspond to the Mapbox Style Specifications for the given layer type.
### A text layer is of type 'symbol'.
### If you do not pass a source, the default source added to the mapboxer object is used.

text_style <- list(
  "id" = "cluster-count",
  "type" = "symbol",
  "filter" = c("has", "point_count"),
  "layout" = list(
    "text-field" = "{point_count_abbreviated}",
    "text-size" = 12
  )
)

map %>%
  add_layer(text_style)