Contagem da população - Escolaridade

Author

Eduarda

Pessoas de 4 anos ou mais de idade por frequência à escola, grau e série, grupos de idade e sexo

Running Code

Código para limpar todos os dados

rm(list=ls())

Pacotes utilizados

library(sidrar) 
library(geobr) 
library(sf) 
library(dplyr)
library(ggplot2)

Puxar dados do Sidra

dados <- get_sidra(api = "/t/476/n3/all/v/allxp/p/all/c290/0/c58/0/c2/0")

Selecionar dados

dados <- dados %>%
  select(UF = `Unidade da Federação`, 
         cod_uf = `Unidade da Federação (Código)`, 
         valor = Valor)

Obter os dados do ano selecionado

mapa <- read_state(year = 2020)

Mapa

dados$cod_uf <- as.numeric(dados$cod_uf)

mapa_dados <- mapa %>%
  left_join(dados, by = c("code_state" = "cod_uf"))

ggplot(mapa_dados) +
  geom_sf(aes(fill = valor), color = "white") +
  scale_fill_gradient(
    low = "darkseagreen",
    high = "darkgreen"
  ) +
  theme_void() +
  labs(
    title = "Mapa do Brasil por UF",
    fill = "População"
  )

Grafico

ggplot(dados, aes(x = UF, y = valor)) +
  geom_col(fill = "darkseagreen") +
  coord_flip() +
  theme_minimal() +
  labs(
    title = "Contagem da População por Estado",
    x = "Estados",
    y = "Valor"
  )

Tabela

instalar pacotes

install.packages("DT")

Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.6'
(as 'lib' is unspecified)

library(DT)

Ler a Tabela

datatable(dados)