Sophists_Map

library(leaflet)
library(dplyr)

sophists <- c("Gorgias of Leontini", "Protagoras of Abdera", "Hippias of Elis", "Prodicus of Ceos")
Leontini <- c(37.28333,15.00000)
Abdera <- c(40.95000,24.98333)
Elis <- c(37.89131, 21.37493)
Ceos <- c(37.623056, 24.336667)
df <- as.data.frame(do.call("rbind", list(Leontini, Abdera, Elis, Ceos)))
colnames(df) <- c("lat", "lng")


GreeksIcon <- makeIcon(
  iconUrl = "https://www.pinclipart.com/picdir/middle/181-1819139_-socrates-illustration-scrates-png-clipart.png",
  iconWidth = 31*215/230, iconHeight = 31,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

GreeksSites <- c(
  "<a href='https://en.wikipedia.org/wiki/Gorgias'>Gorgias of Leontini</a>",
  "<a href='https://en.wikipedia.org/wiki/Protagoras'>Protagoras of Abdera</a>",
  "<a href='https://en.wikipedia.org/wiki/Hippias'>Hippias of Elis</a>",
  "<a href='https://en.wikipedia.org/wiki/Prodicus'>Prodicus of Ceos</a>"
)


df %>% 
  leaflet() %>%
  addTiles() %>%
  addMarkers(icon = GreeksIcon, popup = GreeksSites)