library(leaflet) m <- leaflet() %>% addTiles() %>% addMarkers(lng = -74.011322, lat = 40.706913, popup="The NYSE") m