You can also embed plots, for example:
pt_cities <- data.frame(name = c("Lisboa", "Porto", "Braga", "Faro"),
pop = c(567131, 248769, 201583, 69468),
lat = c(38.7253, 41.1621, 41.5503, 37.0161),
lng = c(-9.1500, -8.6220, -8.4200, -7.9350))
pt_cities %>%
leaflet() %>%
addTiles() %>%
addCircles(weight = 1, radius = sqrt(pt_cities$pop) * 100)
## Assuming "lng" and "lat" are longitude and latitude, respectively