This project uses a dataset from opisthokonta.net to place 160 European football team stadiums on a map. It uses Leaflet to display the team, city, stadium name and capacity.
library(leaflet)
df <- read.csv("stadiums_20150302.csv", encoding="UTF-8")
mymap <- leaflet(data=df) %>%
addTiles() %>%
addMarkers(~Longitude, ~Latitude,
popup = paste("<b>" ,df$Team,"</b><br>",
"City: ", df$City, "<br>",
"Stadium: ", df$Stadium, "<br>",
"Capacity: ", df$Capacity
),
clusterOptions = markerClusterOptions())
mymap