Locations of the 20 Premier League Stadiums 2021 / 2022

The map below shows the latitude and longitude locations of the current 20 football Premier League teams. Hover over the markers will give the name of the team. Clicking the marker gives a popup that has the official website for the respective team. The circles are generated by modifying the stadium capacity.

df %>%
        leaflet(options = leafletOptions(minZoom = 4, maxZoom = 16)) %>%
        addTiles() %>%
        addMarkers(popup = df$team_website,
                   clusterOptions = markerClusterOptions(),
                   label = df$FDCOUK) %>%
        addCircles(weight=1,radius = sqrt(df$Capacity)*40, 
                   color = df$team_colors)
## Assuming "Longitude" and "Latitude" are longitude and latitude, respectively
## Assuming "Longitude" and "Latitude" are longitude and latitude, respectively

Appendix: r code

knitr::opts_chunk$set(echo = TRUE)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(cache = TRUE)
library(tidyverse)
library(leaflet)
if(!file.exists("./data")){dir.create("./data")}
url1 <- "http://opisthokonta.net/wp-content/uploads/2015/03/stadiums_20150302.csv"
download.file(url1, destfile = "./data/stadiums_20150302.csv")
football_df <- read_csv("./data/stadiums_20150302.csv")
pl_team <- c("Arsenal","Aston Villa","Brentford","Brighton","Burnley",
             "Chelsea","Crystal Palace","Everton","Leeds","Leicester",
             "Liverpool","Man United","Man City","Newcastle","Norwich",
             "Southampton","Tottenham","Watford",
             "West Ham","Wolves")
df <- football_df %>% filter(FDCOUK %in% pl_team) %>% select(-Country)
team_website <- c("http://www.arsenal.com/", "http://www.avfc.co.uk/", 
                  "http://www.chelseafc.com/", "http://www.evertonfc.com/", 
                  "http://www.liverpoolfc.com/", "https://www.mancity.com/",
                  "http://www.manutd.com/", "http://www.nufc.co.uk/",
                  "http://www.canaries.co.uk/", 
                  "http://www.tottenhamhotspur.com/",
                  "http://www.wolves.co.uk/",
                  "https://brightonandhovealbion.com/",
                  "http://www.burnleyfootballclub.com/", 
                  "http://www.cpfc.co.uk/",
                  "http://www.leedsunited.com/", "https://www.lcfc.com/",
                  "https://www.southamptonfc.com/", 
                  "http://www.watfordfc.com/",
                  "http://www.whufc.com/", "https://www.brentfordfc.com/")
df <- cbind(df,team_website)
team_colors <- (c("red","darkmagenta","dodgerblue", "dodgerblue1","firebrick",
                  "deepskyblue","firebrick1","gray0","forestgreen",
                  "floralwhite","gold2","dodgerblue4", "darkorchid4",
                  "dodgerblue2","ghostwhite","dodgerblue3","firebrick2",
                  "yellow","floralwhite","red3"))
df <- cbind(df, team_colors)
df %>%
        leaflet(options = leafletOptions(minZoom = 4, maxZoom = 16)) %>%
        addTiles() %>%
        addMarkers(popup = df$team_website,
                   clusterOptions = markerClusterOptions(),
                   label = df$FDCOUK) %>%
        addCircles(weight=1,radius = sqrt(df$Capacity)*40, 
                   color = df$team_colors)