suppressMessages(library(dplyr))
suppressMessages(library(leaflet))
m <- data.frame(name = c("Riga", "Daugavpils", "Jekabpils", "Jurmala", "Jelgava",
                         "Liepaja", "Rezekne", "Valmiera", "Ventspils"),
                pop = c(605802, 79120, 21418, 50561, 54694, 67360, 26481, 
                        22757, 32955),
                lat = c(56.946285, 55.882666386780166, 56.50326110127285,
                        56.97986586363717, 56.655216425404895, 56.53710257847891,
                        56.51197836970089, 57.53219742136385, 57.407045899369585),
                lng = c(24.105078, 26.52747218260945, 25.866001631639435,
                        23.840271465795315, 23.713581637204495, 21.025683717731884,
                        27.335641698058275, 25.418796147981986, 21.59920378494485))
                        
m %>% 
  leaflet() %>%
  addTiles() %>%
  addMarkers(popup=as.character(m$pop)) %>%
  addCircles(weight=1, radius=sqrt(m$pop)*30)
## Assuming "lng" and "lat" are longitude and latitude, respectively
## Assuming "lng" and "lat" are longitude and latitude, respectively