Ireland town populations

        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
                           )