Russian cities

Creation of a map

install.packages("leaflet", repos = "https://cran.rstudio.com/")

## Устанавливаю пакет в 'C:/Users/dmitr/AppData/Local/R/win-library/4.3'
## (потому что 'lib' не определено)

## пакет 'leaflet' успешно распакован, MD5-суммы проверены
## 
## Скачанные бинарные пакеты находятся в
##  C:\Users\dmitr\AppData\Local\Temp\RtmpgxixvF\downloaded_packages

library(leaflet)
df <- data.frame(cities = c("Moscow", "Saint-Petersburg", "Kazan", "Ekaterinburg", "Kaliningrag", "Nizhiy Novgorod"),
                 lat = c(55.75, 59.94, 55.79, 56.85, 54.71, 56.33),
                 lng = c(37.62, 30.31, 49.12, 60.61, 20.51, 44),
                 pop = c(13010112, 5601911, 1308660, 1588665, 489735, 1249861))

df %>% leaflet() %>% 
  addTiles() %>% 
  addMarkers(popup = df$cities) %>% 
  addCircles(weight = 1, radius = sqrt(df$pop) * 30)

## Assuming "lng" and "lat" are longitude and latitude, respectively

## Assuming "lng" and "lat" are longitude and latitude, respectively