INPETaller10

Mapa de los Municipios de Colombia por Medida de Color

Código

1. Directorio

setwd("C:/Programacion en R/1. INF. PARA ECONOMISTAS/SISECO-EJ10")

2. Librerias

library(tidyverse)
library(data.table)
library(sf)
library(rgdal)
library(leaflet)
library(leaflet.extras)
library(maps)

3. Realización del Mapa

mapa<- readOGR(dsn= "Municipio" ,
               layer= "MGN_MPIO_POLITICO")

leaflet(data =mapa) %>%
  addTiles() %>%
  addPolygons(fillColor = topo.colors(10), stroke = F)

data_auxiliar<- data.frame(DPTO_CCDGO =unique(mapa@data$DPTO_CCDGO),
                           Medida = rnorm(33,500,20))

mapa2 <- merge (mapa, data_auxiliar, by="DPTO_CCDGO") 
 
mi_paleta<-colorBin(palette="RdBu",
                    domain = mapa2@data$Medida,
                    bins = c(0,500,1000,1500,2000,2500))

leaflet(mapa2) %>% 
  addProviderTiles(provider = providers$CartoDB.PositronNoLabels)%>%
  addPolygons(fillColor=~mi_paleta(Medida),
              color ="black",
              weight=1) %>% 
  addLegend(pal=mi_paleta, values=~Medida, position="bottomright")

4. Mapa