Largest European Cities (by Population)

Overview

This interactive map is displaying the 35 largest European cities (by population) with the help of leaflet package. By clicking on each of the circles (which are proporationate to the population), the user can see further information.

Read and manipulate data set

cities <- read.csv("cities.csv")

cities <- cities %>%
  mutate(Population2 = formatC(Population, big.mark = ","))
cities <- cities %>%
    mutate(Popup=paste("<b>", cities$City, ":</b>","<BR>", cities$Population2, "<BR>", "<nobr>",cities$Country, " ", "<img src='", cities$FlagURL, "' width='25' heigth='16.7'></nobr>", sep=""))

Create interactive map

cities  %>%
  leaflet(width = "100%") %>%
  addTiles() %>%
  addCircleMarkers(weight=1, radius = sqrt(cities$Population/20000), lat = cities$Lat, lng = cities$Lng, popup = cities$Popup)