mapa_bairros_RJ.R

bairros <- geojsonio::geojson_read("https://github.com/DATAUNIRIO/Mapas_e_Shapesfiles/raw/master/rio/Limite_de_Bairros.geojson", what = "sp")
class(bairros)

names(bairros)

library(leaflet)
m %>% 

m = leaflet(bairros) %>%
  addTiles() %>%
  addProviderTiles('CartoDB.Positron')

m %>% addPolygons()

#--------------------------------------------------

bins <- c(0, 10, 20, 50, 100, 200, 500, 1000, Inf)
pal <- colorBin("YlOrRd", domain = bairros@data[["codbnum"]], bins = bins)

m1 =  leaflet(bairros) %>%
  addTiles() %>% addProviderTiles('Esri.WorldImagery') 

m1 %>%
  addPolygons(
  fillColor = ~pal(bairros@data[["codbnum"]]),
  weight = 2,
  color = "white")