Spanish Football Stadiums

In this project, we see a web page using R Markdown that features a map created with Leaflet.
The map have markers pointing to each of the 20 football stadiums that participates in 2016-2017 Santander football League of Spain.

R Markdown and Leaflet

here are the steps followed to create the Map:

Load Packages

library(leaflet)

Load Data

dir.principal <- paste(getwd(), "/Data", sep = "")

dir <- paste(dir.principal, "/Soccer_Stadium.csv", sep = "")
data <- read.csv(dir)

dir <- paste(dir.principal, "/Icons", sep = "")
dir <- paste(dir, "/", list.files(dir), sep = "")
icons <-  makeIcon( iconUrl = dir, 
                    iconWidth = 31*215/230, 
                    iconHeight = 31,
                    iconAnchorX = 31*215/230/2, 
                    iconAnchorY = 16)

print(data[, 1:2])
##                                Team                       Stadium
## 1            Atletic Club de Fútbol                     San Mamés
## 2           Club Atlético de Madrid              Vicente Calderón
## 3             Club Atlético Osasuna                      El Sadar
## 4            Club Deportivo Leganés Estadio Municipal de Butarque
## 5             Club Deportivo Alavés                  Mendizorroza
## 6             Fútbol Club Barcelona                      Camp Nou
## 7            Granada Club de Fútbol Nuevo Estadio de Los Cármenes
## 8            Málaga Club de Fútbol                    La Rosaleda
## 9  Real Club Deportivo de la Coruña                        Riazor
## 10      Real Club Deportivo Español                     Corneprat
## 11              Real Betis Balompié             Benito Villamarín
## 12          Real Club Celta de Vigo                      Balaídos
## 13       Real Madrid Club de Fútbol             Santiago Bernabéu
## 14          Real Sociedad de Fútbol                        Anoeta
## 15           Real Sporting de Gijón                    El Molinón
## 16              Sevilla Fútbol Club         Ramón Sánchez Pizjuán
## 17         Sociedad Deportiva Éibar                        Ipurua
## 18       Unión Deportiva Las Palmas                  Gran Canaria
## 19          Valencia Club de Futbol                      Mestalla
## 20         Villareal Club de Fútbol                   El Madrigal

Plot Leaflet Map

addMarkers(addTiles(leaflet()), 
           icon = icons, 
           popup = paste("Team: ", as.character(data$Team), "; ", 
                         "Stadium: ", as.character(data$Stadium),sep = ""), 
           lat = as.numeric(data$Latitude), 
           lng = as.numeric(data$Longitude))
Application made by Sergio Contador scontador@ucm.es