Analisando a crise Argentina e as exportações do Brasil com R

Autor

Fernando da Silva

Resumo

Neste artigo, analisamos brevemente a evolução recente das exportações do Brasil, com ênfase para a Argentina, um grande parceiro comercial na pauta de exportações que está em crise econômica desde 2018.

A Argentina está em uma crise econômica desde 2018, quando Macri era o presidente do país, por motivos diversos e complexos. O estopim da crise foi o corte de crédito internacional para o governo argentino, o que gerou, dentre outras consequências, uma crise cambial que desvalorizou o peso argentino frente ao dólar significativamente. Em meio a esta situação, soma-se a crise da pandemia da Covid-19, a partir de 2020, que agravou ainda mais a situação do país vizinho.

O Brasil é o principal parceiro comercial da Argentina¹, com participação em torno de 24% no total de importações do país. Já na pauta de exportação brasileira, o país vizinho sempre esteve entre os três parceiros mais relevantes, com uma participação oscilando em torno de 7,8% desde o início da crise. Outros parceiros relevantes são China e Estados Unidos.

Com o início da crise na Argentina, o Brasil reduziu significativamente suas vendas externas de mercadorias para o país vizinho, em -36% no acumulado de 2019 até novembro em relação ao mesmo período do ano anterior. Em termos absolutos foram US$ 5,12 bilhões a menos de exportações neste período. Este quadro melhorou bastante nos anos consecutivos, atingindo um aumento de 40% (US$ 10,7 bilhões) das exportações brasileiras para a Argentina em 2021.

Com reflexo da situação econômica, a Argentina vem diminuindo sua participação na pauta de exportações do Brasil. No início da crise, 10,7% das exportações brasileiras tinham como destino o país vizinho, caindo para 8% em 2023, considerando o acumulado do ano até novembro em relação ao mesmo período do ano anterior.

O gráfico abaixo ilustra essa evolução, apresentando as variações das exportações brasileiras para os 10 principais parceiros comerciais de destino, em variação percentual e absoluta, ambas em relação ao mesmo período do ano anterior. A área dos círculos representa a participação de cada país na pauta de exportações do Brasil.

# Pacotes -----------------------------------------------------------------

# Carregar pacotes
library(readr)
library(dplyr)
library(lubridate)
library(ggplot2)
library(ggrepel)
library(ggtext)
library(gganimate)



# Dados -------------------------------------------------------------------

# Importar dados
dados_brutos <- readr::read_csv2(file = "EXP_2017_2023_20231215.csv")

# Tratamento de dados
dados <- dados_brutos |>
  dplyr::mutate(
    periodo = lubridate::ym(paste0(Ano, `Mês`)),
    pais = dplyr::if_else(`Países` == "Países Baixos (Holanda)", "Holanda", `Países`),
    valor = `Valor FOB (US$)` / 1e9,
    .keep = "none"
    )


# Análise -----------------------------------------------------------------

# 10 parceiros comerciais mais relevantes do Brasil na sua pauta de exportação
top10paises_pauta_exportacao <- dados |>
  dplyr::filter(lubridate::year(periodo) == lubridate::year(max(periodo))) |>
  dplyr::group_by(pais) |>
  dplyr::summarise(exportacao_acum_ano = sum(valor), .groups = "drop") |>
  dplyr::slice_max(order_by = exportacao_acum_ano, n = 10)


# Variação absoluta e percentual acumulada no ano
mes_corte_acumular <- dados |>
  dplyr::slice_max(order_by = periodo) |>
  dplyr::distinct(periodo) |>
  dplyr::pull() |>
  lubridate::month()

variacoes <- dados |>
  dplyr::filter(
    pais %in% top10paises_pauta_exportacao$pais,
    lubridate::month(periodo) %in% 1:mes_corte_acumular
    ) |>
  dplyr::group_by(ano = lubridate::year(periodo), pais) |>
  dplyr::summarise(acumulado = sum(valor, na.rm = TRUE), .groups = "drop") |>
  dplyr::arrange(pais, ano) |>
  dplyr::group_by(pais) |>
  dplyr::mutate(
    variacao_pc = ((acumulado / dplyr::lag(acumulado)) - 1) * 100,
    variacao_abs = acumulado - dplyr::lag(acumulado)
    ) |>
  dplyr::group_by(ano) |>
  dplyr::mutate(
    participacao_pauta_exp = acumulado / sum(acumulado) * 100,
    cor = dplyr::if_else(pais == "Argentina", "#b22200", "#282f6b"),
    ) |>
  dplyr::ungroup() |>
  dplyr::filter(!is.na(variacao_pc)) |>
  dplyr::mutate(ordem = dplyr::if_else(pais == "Argentina", 2, 1)) |>
  dplyr::arrange(ordem)



# Visualização de dados ---------------------------------------------------

# Gráfico animado das variações e da participação na pauta por ano
cores <- dplyr::distinct(variacoes, pais, cor)

grafico <- variacoes |>
  ggplot2::ggplot() +
  ggplot2::aes(
    x = variacao_pc,
    y = variacao_abs,
    size = participacao_pauta_exp,
    color = pais,
    label = pais,
    group = pais
    ) +
  ggplot2::geom_hline(yintercept = 0, linetype = "dashed") +
  ggplot2::geom_vline(xintercept = 0, linetype = "dashed") +
  ggplot2::geom_point() +
  ggrepel::geom_text_repel(
    nudge_y = 0.05,
    angle = 0,
    vjust = -5,
    segment.size = 0.1,
    color = "black",
    size = 3.5,
    seed = 1984
    ) +
  ggplot2::scale_size_continuous(range = c(0, 30), guide = ggplot2::guide_none()) +
  ggplot2::scale_color_manual(values = setNames(cores$cor, cores$pais)) +
  ggplot2::labs(
    title = "**Brasil**: exportações por destinos",
    subtitle = paste0(
      "Acumulado jan-",
      lubridate::month(x = mes_corte_acumular, label = TRUE, locale = "pt_BR.utf8"),
      " | **Ano: {as.integer(frame_time)}**"
      ),
    x = "Variação em US$ (bilhões)",
    y = "Variação percentual",
    caption = paste0(
      "**Dados**: MDIC | **Elaboração**: Análise Macro<br>",
      "**Nota**: área dos círculos representa a participação na pauta de exportação"
      )
    ) +
  ggplot2::theme_gray(base_size = 15) +
  ggplot2::theme(
    legend.position = "none",
    plot.title = ggtext::element_markdown(),
    plot.subtitle = ggtext::element_markdown(),
    plot.caption = ggtext::element_textbox_simple(
      size = 10,
      margin = ggplot2::margin(10, 0, 0, -30)
      )
    ) +
  gganimate::transition_time(ano) +
  gganimate::ease_aes("linear")

gganimate::animate(
  plot = grafico,
  fps = 30,
  duration = 25,
  end_pause = 15*5,
  width = 800,
  height = 650,
  res = 150
  )

Conclusão

Referências

BANCO CENTRAL DO BRASIL (2019). Evolução recente da balança comercial. Estudo Especial nº 66/2019.