Dos paquetes para mapas peruanos

Author

Samuel Calderon

Published

October 12, 2021

Por cuestiones de trabajo, en los últimos meses tuve necesidad de dibujar mapas y usar las cifras del Mapa de Pobreza 2018 del INEI. En ambos casos, conseguir que la data se encuentre en un formato ordenado que permita trabajar de manera sencilla no fue fácil de lograr.

Para que otras personas no tengan que pasar por ese mismo entretenimiento, desarrollé dos paquetes que contienen la data lista para usar. De paso, creé la sección de proyectos en mi web, donde alojaré nuevos paquetes o apps que cree en el futuro. Cada paquete tiene su propia web y repositorio en Github.

Con {perumapas} se puede obtener las geometrías necesarias para dibujar los mapas y con {perupobreza2018} se puede usar las cifras del mapa de pobreza, incluyendo una columna calculada de cifra de pobreza monetaria.

A continuación, un ejemplo para ver cómo trabajan en conjunto.

library(perupobreza2018)
library(perumapas)
library(sf) # obligatorio para perumapas
library(tidyverse) # para transformación y gráficos

Con {perumapas} es sencillo realizar mapas a nivel regional, provincial y distrital. Por ejemplo, el mapa de las regiones del Perú.

mapa_regional %>% 
    ggplot() +
    geom_sf()

El mapa de los distritos de la provincia de Lima:

mapa_distrital %>% 
    filter(departamento == "LIMA", provincia == "LIMA") %>% 
    ggplot() +
    geom_sf()

Con {perupobreza2018} podemos añadirle una capa de información a cualquier mapa distrital. Para ello, primero se hace un join/merge entre los datos.

pobreza_lima <- mapa_distrital %>% 
    filter(departamento == "LIMA", provincia == "LIMA") %>% 
    left_join(pobreza2018, by = "ubigeo")

Con este cruce, podemos colorear cada distrito según su cifra de pobreza monetaria.

pobreza_lima %>% 
    ggplot() +
    geom_sf(aes(fill = pobreza_monetaria))

Evidentemente, también es posible usar los paquetes de manera independiente. El nivel de personalización de los mapas generados dependerá del conocimiento en R y el paquete {ggplot2} .