PIB por UF

Author

Victoria Sales

Objetivo da Atividade

O objetivo desta atividade foi construir um mapa temático do PIB por Unidade da Federação no Brasil utilizando dados do SIDRA/IBGE e a malha territorial disponibilizada pelo pacote geobr.

Para fazer esta atividade foram utilizados os pacotes sidrar, geobr, dplyr, sf, ggplot2 e knitr.

Os dados do PIB estadual foram obtidos diretamente do SIDRA por meio da tabela 5938. Em seguida, foi realizada a harmonização entre os códigos das unidades federativas presentes na base do SIDRA e na malha espacial do Brasil.

Após a junção dos dados econômicos com os dados espaciais, foi construído um mapa temático utilizando o pacote ggplot2, aplicando uma escala de cores em tons de rosa para representar a magnitude do PIB entre os estados brasileiros.

Carregamento dos Pacotes

library(sidrar)
library(geobr)
library(dplyr)


Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(sf)

Linking to GEOS 3.12.1, GDAL 3.8.4, PROJ 9.4.0; sf_use_s2() is TRUE

library(ggplot2)
library(knitr)

Coleta dos Dados do SIDRA

dados_sidra <- get_sidra(api = "/t/5938/n3/all/v/37/p/last")

All others arguments are desconsidered when 'api' is informed

Leitura da Malha Territorial

mapa_uf <- read_state(code_state = "all", year = 2020)

ℹ Using year/date 2020

Limpeza dos Dados

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

Tabela do PIB por Estado

dados_sidra_limpos %>%
  select(nome_uf, valor) %>%
  arrange(desc(valor)) %>%
  kable(
    caption = "Tabela 1 - Produto Interno Bruto por Unidade da Federação"
  )

Tabela 1 - Produto Interno Bruto por Unidade da Federação
nome_uf	valor
São Paulo	3444814033
Rio de Janeiro	1172871443
Minas Gerais	971977551
Paraná	670919162
Rio Grande do Sul	650107022
Santa Catarina	513392973
Bahia	430987853
Distrito Federal	365669108
Goiás	336746975
Mato Grosso	273008586
Pernambuco	270474919
Pará	254546511
Ceará	232239257
Espírito Santo	209829732
Mato Grosso do Sul	184402118
Amazonas	161794976
Maranhão	149227195
Rio Grande do Norte	101740275
Paraíba	96963174
Alagoas	89688932
Piauí	80916856
Rondônia	76456179
Tocantins	64317699
Sergipe	60816662
Amapá	28020120
Acre	26291321
Roraima	25124805

Junção dos Dados

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

Construção do Mapa

ggplot(data = mapa_final) +
  geom_sf(aes(fill = valor), color = "black", size = 0.2) +
  scale_fill_gradient(
    low = "#FFF0F5",
    high = "#FF1493",
    name = "PIB"
  ) +
  theme_void() +
  labs(title = "Produção por Unidade da Federação")

Quarto

Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see https://quarto.org.

Running Code

When you click the Render button a document will be generated that includes both content and the output of embedded code. You can embed code like this:

1 + 1

[1] 2

You can add options to executable code like this

[1] 4

The echo: false option disables the printing of code (only output is displayed).