Developing Data Products. JH in Coursera

This is week 2 assignment

Biggest 50 cities in the world

Read the data

df <- read.csv('worldcities.csv')

Select the top 50 biggest cities by population

df2 <- head(df[order(df$population, decreasing = TRUE),],50)

You can download the data from ‘https://simplemaps.com/data/world-cities’. Last update:2019

Here is my map

library(leaflet)
mymap <- df2 %>% leaflet() %>% addTiles() %>% addMarkers(label = df2$city) %>% addCircles(radius = sqrt(df2$population)*100, weight = 1)
mymap