Leaflet Playground

Libraries

require(leaflet)
require(tidyverse)

Data

We will create the data for the map, first we will define the geographic coordinates of the center of São Paulo in Brazil and from it create random coordinates from samples of normal distributions with the coordinates of the center of São Paulo as averages.

data_map <- tibble(lat = c(-23.5475, rnorm(10, -23.5475, 0.2)), 
                   lng = c(-46.63611, rnorm(10, -46.63611, 0.2)), 
                   type = c('Center', rep('Random location', 10)))

Map

Let’s create the map and place legends based on the type of point (center or random location)

leaflet() %>% 
  addTiles() %>%
  addMarkers(lng = data_map$lng, lat = data_map$lat, popup = data_map$type) %>%
  addCircleMarkers(lng = data_map$lng, lat = data_map$lat, 
                   color = if_else(data_map$type == 'Center', 'red', 'blue')) %>%
  addLegend(labels = unique(data_map$type), colors = c('red', 'blue'))