Top Sites to visit in Greece

The map displays the location of the top sites one can visit during his stay in Greece. As you can see most of them are near the capital of Greece, that is Athens, e.g., Acropolis, Zeus Temple, Panathenaic stadium.

Here is the code that you can use to reproduce the map.

library(leaflet)
library(dplyr)
df = data.frame(lng=c(23.7284625, 21.630502047992856, 23.74109035470088, 23.732645909359594, 22.49406181966286, 21.63015449579497, 22.803217593212366, 23.158945985248806, 28.22685647742065, 22.94844717386772), 
                lat=c(37.9685692, 39.722148845180946, 37.968545453008524, 37.96924392192976, 38.48024969916531, 37.63887783377867, 37.562128996160624, 37.63605664231064, 36.44644957747977, 40.62668223865248), 
                site = c("Acropolis", "Meteora", "Panathenaic Stadium", "Zeus Temple", "Delphi", "Ancient Olympia", "Palamidi Castle", "Epidauros Theater", "Rhodes Old Town", "White Tower of Thessaloniki" ))
my_map <- df %>% leaflet %>%
  addTiles() %>%
  addMarkers(clusterOptions = markerClusterOptions(), label = (paste(df$site, sep = "<br>")))

---