The places of my life

Remark:

I am showing the code of the map for the benefit of the marker.

Please use the interactive map to go through the map and discover the important places of my life. Enjoy the tour.

library(leaflet)
df <- data.frame(name = c("Via Nievo", "Via XX Settembre", "Pontormo",
                          "DM Unipi", "Angus Drive", "Walton High", 
                          "Bedford Town Hall"),
                 lat = c(43.72238325192714, 43.719234607336155, 
                         43.71571261599621, 43.71966404407325,
                         52.00558407005514, 52.04695793845052,
                         52.136074493511614),
                 lng = c(10.956351064309342, 10.95310027322172,
                         10.933656425339382, 10.407605611847194,
                         -0.7509671726104704, -0.6743478609684557,
                         -0.4682699541806367))
popups <- c("I was born here", "I grew up here", "I studied here",
            "I became a Mathematician here", "I live here",
            "I work here", "I got married here")

df %>% 
    leaflet() %>%
    addTiles() %>%
    addMarkers(popup = popups, clusterOptions = markerClusterOptions())
## Assuming "lng" and "lat" are longitude and latitude, respectively