Homework 5

knitr::opts_chunk$set(echo = TRUE)
library(rgdal)

## Warning: package 'rgdal' was built under R version 4.1.3

## Warning: package 'sp' was built under R version 4.1.3

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.1.3

world_map <- readOGR("https://raw.githubusercontent.com/datasets/geo-boundaries-world-110m/master/countries.geojson")

## OGR data source with driver: GeoJSON 
## Source: "https://raw.githubusercontent.com/datasets/geo-boundaries-world-110m/master/countries.geojson", layer: "countries"
## with 177 features
## It has 63 fields

My_World_Map <- leaflet(world_map) %>%
  addTiles ()
pal <- colorNumeric(
  palette = "YlGnBu",
  domain = world_map$lastcensus
)
My_World_Map %>%
  addPolygons(stroke = FALSE, smoothFactor = 0.2, fillOpacity = .5,
              color= ~pal(lastcensus)) %>%
  addLegend("bottomright", pal=pal, values = ~lastcensus,
            title = "Est. Last Census",
            
            opacity = .2)