Análise do nível da escolaridade da população de Pernambuco

O intuito desta atividade é analisar o nível de escolaridade da população de Pernambuco através da análise da porcentagem da população sem instrução e fundamental incompleto em cada município de PE. Assim, utilizando a base de dados do IBGE, foi gerado um mapa onde é possível ter uma boa visualização do cenário de Pernambuco em relação ao seu nível de escolaridade.

A seguir, pode-se visualizar o algoritmo desenvolvido para gerar o mapa e sua análise.

library(leaflet)
library(tidyverse)
library(stringr)
library(dplyr)
library(readr)
library(readxl)
library(rgdal)



pessoas <- read_csv("PE/Amostra_Pessoas_26.txt", col_names = FALSE)
municipios <- read_excel("Unidades da Federação, Mesorregiões, microrregiões e municípios 2010.xls",skip=2)

instrucao <- pessoas %>% transmute(COD_Municipio = str_sub(string = X1, start = 1, end = 7),
                            COD_Instrucao = str_sub(string = X1, start = 158, end = 158),
                            Instrucao = if_else(COD_Instrucao == "1", "Sem instrução e fundamental incompleto",
                                                if_else(COD_Instrucao == "2","Fundamental completo e médio incompleto",
                                                      if_else(COD_Instrucao == "3", "Médio completo e superior incompleto",
                                                              if_else(COD_Instrucao == "4", "Superior completo", "Não determinado")))))


dados <- instrucao %>% left_join(municipios, by = c("COD_Municipio" = "Município"))



shp <- readOGR("/home/gabriel2/Mapa", "26MUE250GC_SIR", stringsAsFactors=FALSE, encoding="UTF-8", verbose = FALSE)

dados_aux = dados %>% group_by(COD_Municipio) %>% summarise(count = sum(COD_Instrucao==1)/(sum(COD_Instrucao==1)+sum(COD_Instrucao!=1)))

dados_completos <- merge(shp,dados_aux, by.x = "CD_GEOCMU", by.y = "COD_Municipio")



qpal <- colorQuantile("Blues", dados_completos$count, n = 4)

map <- leaflet() %>% addTiles() %>% addPolygons(data=dados_completos,stroke = FALSE, fillColor = ~qpal(dados_completos$count), smoothFactor = 0.2,fillOpacity = 1) %>%  addLegend("bottomright", pal = qpal, values = dados_completos$count,
                                                                                                                                                                            title = "Porcentagem da população sem instrução por município",
                                                                                                                                                                            opacity = 1)

Com a análise do mapa gerado, é possível ver que temos alguns polos em PE onde existem menos pessoas sem instrução, como por exemplo nos municípios próximos da capital, o que era de se esperar, pois é a cidade mais desenvolvida do estado.