Paris Landmarks

Leaflet Map

library(leaflet)

coordinates <- data.frame(lat = c(48.85837872436733,48.87386904601079, 48.86061872994643, 48.85297848133342), 
                 lng = c(2.2944822199101504,2.2950610727796175, 2.3376420193293987, 2.349901566899146))

my_map <- coordinates %>% 
     leaflet() %>%
     addTiles() %>%
     addMarkers(popup = c("Eiffel Tower", "Arc de Triomphe", "Louvre Museum", "Cathédrale Notre-Dame de Paris")) %>%
     addCircleMarkers(color = c("red", "blue", "green", "orange")) %>%
     addLegend(labels = c("Eiffel Tower", "Arc de Triomphe", "Louvre Museum", "Cathédrale Notre-Dame de Paris"), colors = c("red", "blue", "green", "orange"))
my_map