Closed fabian199827 closed 1 year ago
@jbkunst ver ejemplo
library(leaflet)
rand_lng <- function(n = 1000) runif(n, -72, -70)
rand_lat <- function(n = 1000) runif(n, -50, -14)
leaflet() |>
addTiles() |>
addMarkers(lng=rand_lng(),
lat=rand_lat(),
clusterOptions = markerClusterOptions())
)
Un inconveniente que veo es que al agrupar (esconder) los puntos, no se observan los valores como para explorar los colores/valores en conjunto con la legenda
Agregar agrupador de estaciones, con el fin que se vea más ordenado el mapa.
Estado actual del mapa sin agrupador (Figura 1): Figura 1
Con agrupador de estaciones: Aquí cada vez que se hace zoom en el mapa, se identifican por zonas la cantidad de estaciones que hay en una zona determinada (Figura 2 y 3) Figura 2
Figura 3
Cuando se le da click a la zona remarcada en azul y con el número 71, se despliegan las 71 estaciones en esa zona, y si se pincha en alguno de los otros números, aparecen las estaciones dentro de esa zona Figura 4 y 5 (adjunto link de la página para que se vea el ejemplo: https://francisco-zambrano.shinyapps.io/rainfallsatellitechile/ ) Figura 4
Figura 5