library(leaflet)
pop_data %>%
leaflet() %>%
addTiles() %>%
addCircles(
fillColor = pop_data$Col #Colour is based on pop using continuous palette
,fillOpacity=0.6
,weight = 0.5
,radius=sqrt(pop_data$Population)*30
)