28 August 2018

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