library(leaflet) my_map <- leaflet() %>% addTiles() %>% addMarkers(lng=126.999119, lat=37.579447, popup="SNUH") my_map