library (leaflet) my_map <- leaflet () %>% addTiles() %>% addMarkers(lat=-4.306579, lng=15.297951, popup="Population explosion") my_map