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.
here are the steps followed to create the Map:
library(leaflet)
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
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))