Assignment:1 (Course Developing Data Products)

Population of regional centers of the Republic of Belarus

library(leaflet)
md_cities <- data.frame(name=c("Minsk", "Gomel", "Vitebsk","Mogilev", "Grodno", "Brest"),
                        pop=c(2009786,510300,364800,357100,356900,340318),            lat=c(53.9022,52.4417,55.1833,53.9089,53.6667,52.0847),
 lng=c(27.5618, 30.9833, 30.1667, 30.3430,23.8167,23.6569))
md_cities %>%
  leaflet() %>%
  addTiles() %>%
  addCircles(weight=10,radius=sqrt(md_cities$pop)*30)