The Growth of Soccer (1872 – Present)

Soccer (football) is one of the world’s most popular sports, played and watched by millions of people all around the world. But while today it is played in virtually every country, it hasn’t always been that way.

As you can see in the animated map below, soccer started off as a small sport, segregated to the United Kingdom, but has since become a world phenomenon.

world_cup_matches_wordpress1.gif

A few interesting stats to note:

  • Kuala Lumpur has hosted 572 international matches (as of July 2018), more than any other city
  • Doha (Qatar) has hosted the highest number of international matches in one single year (38 matches, in 2011)
  • Bodø, Norway hosted the northernmost international match (67.28036, 14.404916), while Dunedin, New Zealand was host to the southernmost international match (at -45.87876, 170.50280)
  • Four cities have hosted international matches under three different country names:
    • Belgrade under Yugoslavia, Serbia & Montenegro, and Serbia
    • Dublin under Ireland, Irish Free State, and Éire
    • Prague under Bohemia, Czechoslovakia, and Czech Republic
    • Salisbury under Southern Rhodesia, Rhodesia, and Zimbabwe

 

Code Snippets:

df <- read_csv("results.csv")
df$year % year()
df_by_year % count(city,country,year)

df_by_year$city_country <- paste(df_by_year$city,", ", 
df_by_year$country, sep="")


for(i in 1:nrow(df_by_year)){
 result <- geocode(df_by_year$city_country[i], 
 output = "latlona", 
 source = "google",
 override_limit = TRUE)
 df_by_year$lon[i] <- as.numeric(result[1])
 df_by_year$lat[i] <- as.numeric(result[2])
}

df_by_year_all <- df_by_year %>% 
tidyr::complete(nesting(city, 
lon, 
lat), 
year,
fill = list(n = 0))

df_by_year_all <- df_by_year_all %>% group_by(city,lat,lon) %>%
mutate(cs=cumsum(n))


saveGIF({
for (i in 1872:2018) {

year_games <- as.character(i)

year_data <- df_by_year_all %>% filter(year == i,
cs>0)
gg <- ggplot() +
borders("world", colour="gray40", fill="beige") +
theme_map()

final_map <- gg + geom_point(data=
year_data,
aes(x = lon, 
y = lat) ,
alpha = 0.5, 
colour = "darkred") + 
ggtitle(paste0('International Soccer Matches, 1872 - ', year_games)) + 
theme(legend.position="none")+theme(plot.title = element_text(size = 25, face= "bold",
hjust = 0.5))

print(final_map)

}
}, movie.name = 'world_cup_matches_wordpress1.gif', 
interval = 0.2, ani.width = 1000, ani.height = 700)

 

For the full code, please refer to: https://github.com/stefangouyet/How-Soccer-Grew

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s