Atividade 04

OBJETIVO DA ATIVIDADE

Objetivo desta atividade é mostrar mostrar o PIB em (mil reais) por unidade da federação, para mostrar quais os Estados que possuem um PIB mais elevade e quais Estados possuem o PIB com os indices mais baixos.

METODOLOGIA

A metodologia ultilizada nessa atividade foi a integração entre Sidra e Geobr, primeiramente instalei os pacotes, “sidrar”, “geobr”, “sf”, “dplyr”, “ggplot2”, logo em seguida dei o comando para ler os pacotes e poder rodar os codigos, utilizei a tabela do Sidra do periodo de 2021, referente ao PIB por Estado. fiz a integração do Geobr com o Sidra para poder gerar a imagem final, no caso o mapa.


MAPA

 # Tabela do PIB por UF (exemplo com dados de 2021 da Tabela 5938)
dados_sidra <- get_sidra(x = 5938,
                         variable = 37, 
                         period = "2021",
                         geo = "State")


dados_sidra_clean <- dados_sidra %>%
  select(code_state = `Unidade da Federação (Código)`, 
    uf_nome = `Unidade da Federação`,             
    valor_pib = Valor) %>%
  
mutate(code_state = as.numeric(code_state))

mapa_uf <- read_state(year =2020, showProgress = FALSE)

mapa_final <- left_join(mapa_uf, dados_sidra_clean, by = "code_state")

ggplot(data = mapa_final) +
  geom_sf(aes(fill = valor_pib)) +
  scale_fill_viridis_c(name = "PIB (Mil Reais)") +
  theme_minimal() +
  labs(title = "PIB por Unidade da Federação (2021)")

O mapa acima permite visualizar a concentração do PIB no território brasileiro. É possível observar que os estados das regiões Sudeste e Sul concentram os maiores valores, enquanto os estados das regiões Norte e Nordeste apresentam os menores índices.

TABELA

tabela_pib <- dados_sidra_clean %>%
  select(uf_nome, valor_pib) %>%
  arrange(desc(valor_pib))

tabela_pib$uf_nome = as.character(tabela_pib$uf_nome)
tabela_pib$valor_pib = as.numeric(as.character(tabela_pib$valor_pib))

colnames(tabela_pib) = c("Estado", "PIB (Mil Reais)")

kable(tabela_pib, 
      caption = "PIB por Unidade da Federação (2021)", 
      align = "lc",
      format.args = list(big.mark = ".", decimal.mark = ",")) %>%
  kable_styling(bootstrap_options = "striped", full_width = FALSE) %>%
  footnote(general = "Elaboração própria com dados do IBGE/Sidra (2021).",
           general_title = "Fonte:",
           footnote_as_chunk = TRUE,
           title_format = c("bold"))
PIB por Unidade da Federação (2021)
Estado PIB (Mil Reais)
São Paulo 2.719.751.231
Rio de Janeiro 949.300.770
Minas Gerais 857.593.214
Rio Grande do Sul 581.283.677
Paraná 549.973.062
Santa Catarina 428.570.889
Bahia 352.617.852
Distrito Federal 286.943.782
Goiás 269.627.874
Pará 262.904.979
Mato Grosso 233.390.203
Pernambuco 220.813.522
Ceará 194.884.802
Espírito Santo 186.336.505
Mato Grosso do Sul 142.203.766
Amazonas 131.531.038
Maranhão 124.980.720
Rio Grande do Norte 80.180.733
Paraíba 77.470.331
Alagoas 76.265.620
Piauí 64.028.303
Rondônia 58.170.096
Sergipe 51.861.397
Tocantins 51.780.764
Acre 21.374.440
Amapá 20.099.851
Roraima 18.202.579
Fonte: Elaboração própria com dados do IBGE/Sidra (2021).

A tabela apresenta os valores do PIB em mil reais para cada estado, ordenados do maior para o menor. Destacam-se São Paulo, Rio de Janeiro e Minas Gerais como os estados com maior participação no PIB nacional, reflexo da concentração industrial e de serviços nessas regiões.

Os resultados evidenciam uma forte desigualdade regional no Brasil. A disparidade entre os estados mais ricos e os mais pobres reforça a necessidade de políticas públicas voltadas ao desenvolvimento das regiões menos favorecidas, especialmente Norte e Nordeste.