Interactive Data Mapping - Data Products

library(leaflet)

g <- leaflet() %>%
     addTiles() %>%  
  # coordinates for Acropolis Museum
 addMarkers(lng=23.7284500,lat=37.9684600, popup="One of the top attractions in Athens") %>%  
  # Acropolis
  addMarkers(lng=23.726166, lat=37.971421, popup="Acropolis") 

#print map
g