EJERCICIO 1

Con base en los datos de CONEVAL referente a las mediciones de pobreza en 2010 y 2015 se trazan los siguientes mapas.

mapa_guanajuato <- readOGR("/Users/cristinaalvarez/Desktop/bases", layer="guana")
## OGR data source with driver: ESRI Shapefile 
## Source: "/Users/cristinaalvarez/Desktop/bases", layer: "guana"
## with 46 features
## It has 4 fields
# Cruce de información 
datos_coneval <- read_xlsx("/Users/cristinaalvarez/Desktop/bases/Concentrado.xlsx") #abrimos base de pobreza 2010-2015
tabla<-merge(x=mapa_guanajuato@data,y=datos_coneval,by.x="CVEGEO",by.y="Clave de municipio",sort=FALSE)
mapa_guanajuato@data$pobreza_2010 <- tabla$`PobrezaPorcentaje\r\n2010`
mapa_guanajuato@data$pobreza_2015 <- tabla$`PobrezaPorcentaje\r\n2015`
mapa_guanajuato@data$pobreza_extr_2010 <- tabla$`Pobreza extremaPorcentaje\r\n2010`
mapa_guanajuato@data$pobreza_extr_2015 <- tabla$`Pobreza extremaPorcentaje\r\n2015`

Mapa de distribución de pobreza en Guanajuato 2010

cuantil <- sort(unique(cut(as.numeric(mapa_guanajuato@data$pobreza_2010), 5)))
cuantil <- as.numeric(str_sub(cuantil, 2, 5))
cuantil[3] <- 53
cuantil <- c(cuantil, Inf)
colores <- colorBin( palette="PuBu", domain=mapa_guanajuato$pobreza_2010, na.color="transparent", bins=cuantil)

textoss <- paste("Municipio : ",mapa_guanajuato$NOMGEO,"<br/>", "% Pobreza 2010 : ", round(mapa_guanajuato$pobreza_2010, 2)) %>%  lapply(htmltools::HTML)

leaflet(data=mapa_guanajuato) %>% addTiles() %>% 
  addPolygons(label = textoss,fillColor = colores(mapa_guanajuato$pobreza_2010),color = "white",fillOpacity = 1, dashArray = "1") %>%
  addLegend(pal = colores, values = cuantil , opacity = 0.7, title = "Pobreza 2010",position = "bottomright")

Mapa de distribución de pobreza en Guanajuato 2015

cuantil <- sort(unique(cut(as.numeric(mapa_guanajuato@data$pobreza_2015), 5)))
cuantil <- as.numeric(str_sub(cuantil, 2, 5))
cuantil[5] <- 74
cuantil <- c(cuantil, Inf)
colores <- colorBin( palette="PuBu", domain=(as.numeric(mapa_guanajuato$pobreza_2015)), na.color="transparent", bins=cuantil)

textoss <- paste("Municipio : ",mapa_guanajuato$NOMGEO,"<br/>","% Pobreza 2015 : ", round(as.numeric(mapa_guanajuato$pobreza_2015), 2)) %>%  lapply(htmltools::HTML)

leaflet(data=mapa_guanajuato) %>% 
  addTiles() %>% 
  addPolygons(label = textoss,fillColor = colores(as.numeric(mapa_guanajuato$pobreza_2015)),color = "white", fillOpacity = 1,dashArray = "1") %>%
  addLegend(pal = colores, values = cuantil , opacity = 0.7, title = "Pobreza 2015",position = "bottomright")

Distribución de pobreza extrema en Guanajuato 2010

cuantil <- sort(unique(cut(as.numeric(mapa_guanajuato@data$pobreza_extr_2010), 5)))
cuantil <- as.numeric(str_sub(cuantil, 2, 5))
cuantil <- c(cuantil, Inf)
colores <- colorBin( palette="PuBuGn", domain=(as.numeric(mapa_guanajuato$pobreza_extr_2010)), na.color="transparent", bins=cuantil)

textoss <- paste("Municipio : ",mapa_guanajuato$NOMGEO,"<br/>","% Pobreza extrema 2010 : ", round(as.numeric(mapa_guanajuato$pobreza_extr_2010), 2)) %>%  lapply(htmltools::HTML)

leaflet(data=mapa_guanajuato) %>% 
  addTiles() %>% 
  addPolygons(label = textoss,fillColor = colores(as.numeric(mapa_guanajuato$pobreza_extr_2010)),color = "white", fillOpacity = 1,dashArray = "1") %>%
  addLegend(pal = colores, values = cuantil , opacity = 0.7, title = "Pobreza extrema 2010",position = "bottomright")

Distribución de pobreza extrema en Guanajuato 2015

cuantil <- as.vector(sort(unique(cut(as.numeric(mapa_guanajuato@data$pobreza_extr_2015), 5))))
cuantil <- as.numeric(str_sub(cuantil, 2, 4))
cuantil <- c(cuantil, Inf)
colores <- colorBin( palette="PuBuGn", domain=(as.numeric(mapa_guanajuato$pobreza_extr_2015)), na.color="transparent", bins=cuantil)

textoss <- paste("Municipio : ",mapa_guanajuato$NOMGEO,"<br/>","% Pobreza extrema 2015 : ", round(as.numeric(mapa_guanajuato$pobreza_extr_2015), 2)) %>%  lapply(htmltools::HTML)

leaflet(data=mapa_guanajuato) %>% 
  addTiles() %>% 
  addPolygons(label = textoss,fillColor = colores(as.numeric(mapa_guanajuato$pobreza_extr_2015)),color = "white", fillOpacity = 1,dashArray = "1") %>%
  addLegend(pal = colores, values = cuantil , opacity = 0.7, title = "Pobreza extrema 2015",position = "bottomright")

Análisis de distribución de pobreza

¿La pobreza extrema se distribuye de manera aleatoria en los municipios? Es decir, ¿hay grupos o zonas específicas del estado elegido donde se concentran porcentajes mayores de la pobreza extrema?

Con base en los mapas mostrados, es posible observar que la pobreza no se divide de manera aletoria en los municipios. Los estados que tienen mayor industrialización, como León, Guanajuato, Salmanca y Celaya son los que tienen menor proporción de pobreza y pobreza extrema para los dos años analizados.

Por otro lado, los municipios que se encuentran alejados del corredo industrial y que colindan con Michoacán son los que presentan mayor porcentaje de pobreza extrema. De la misma manera, los municipios del noreste que colindan con San Luis Potosí y Querétaro también presentan niveles altos de pobreza extrema.

Por lo tanto, es posible consluir que el análisis observacional es útil para identificar zonas o regiones den donde se concentra la pobreza.