Scattergeo Plots

library(leaflet)
leaflet() %>% addTiles()