library(leaflet) my_map <- leaflet() %>% addTiles() %>% addMarkers(lat=39.9526,lng=-75.1652, popup="Philadelphia") my_map