Kenyan Map Showing its Population Distribution Across COunties

My First Map

Code

library(leaflet)
df <- read.csv("ke.csv")

Ke_Map <- df %>% leaflet() %>% addTiles() %>% 
 addCircleMarkers(weight = 1, radius = sqrt(df$population)*0.02, 
                  popup = as.character(paste("Population","<br>",
                                             df$population)),
                  color = colors()[sample(100:300, 53, 
                                          replace = FALSE)], 
                  fillOpacity = 0.25)

Map

Ke_Map