library(leaflet) my_map <- leaflet() %>% addTiles() %>% addMarkers(lat=31.341373, lng=75.573853, popup = "Home sweet home") my_map