This information is a representative information to COVID-19 in Central America, this analysis contains data to deaths and population.
The radius circle is the relation deaths and population.
points = data.frame(name=c("Guatemala","El Salvador","Belice","Honduras","Nicaragua","Costa Rica","Panamá","Cuba","México"),
latitude=c(15.5,13.8333305555556,17.25,15,13,10,9,22,23),
longitude=c(-90.25,-88.9166694444445,-88.75,-86.5,-85,-84,-80,-79.5,-102),
deaths=c(16709,4032,633,10608,223,7874,7898,8492,314598),
population=c(17915568,6486205,397628,9904607,6624554,5094118,4314767,11326616,126014024))
m <- leaflet(width = "100%") %>% setView(lng = -90.0589, lat = 17.0255, zoom = 5)
m %>% addTiles() %>% addCircleMarkers(data=points, radius = points$deaths/points$population * 30000,
label = paste(points$name,(paste(comma(points$deaths, digits = 0),
paste("muertes de ",paste(comma(points$population, digits = 0),"habitantes"))))))