#A ideia do artigo é analisar se as instabilidades políticas afetaram a capacidade dos dois países de celebrar atos internacionais de qualquer natureza. A premissa principal deste trabalho é de que apesar dos afastamentos e da rivalidade histórica, o serviço exterior de ambos os países teriam conseguido manter a celebração de atos internacionais ao longo do tempo.

#Com a base de dados Concórdia disponibilizada pelo Ministério das Relações Exteriores do Brasil, que reúne dados sobre todos os atos internacionais celebrados pelo Brasil até 30 de Outubro de 2021, será possível fazer uma análise quantitativa dos atos internacionais celebrados, isolá-los conforme o período utilizando a tese de Candeas, e, ainda entender qualitativamente que tipo de atos estavam sendo celebrados em qual período histórico.

#A análise contará com atos internacionais, que inclui tratados, acordos, memorandos de entendimento, ajustes complementares, convenções ou protocolos que criem normas e regulamentos. Assim, serão isolados os atos internacionais bilaterais, ou seja, aqueles que são celebrados apenas entre dois países, e somente os celebrados entre Brasil e Argentina, a fim de avaliar as relações diplomáticas entre esses dois países utilizando os marcos destacados pelo diplomata Alessandro Candeas.

#Após o uso preliminar dos dados Concórdia, podemos já identificar que a premissa deste artigo está errada, e que as instabilidades políticas que permearam as relações bilaterais entre Brasil e Argentina afetou, de fato, suas capacidades de celebrar atos internacionais. Ao todo, a Argentina possui 414 acordos bilaterais com o Brasil, o que representa aproximadamente 3,40% dos acordos bilaterais totais.

library(dplyr)
## 
## Anexando pacote: 'dplyr'
## Os seguintes objetos são mascarados por 'package:stats':
## 
##     filter, lag
## Os seguintes objetos são mascarados por 'package:base':
## 
##     intersect, setdiff, setequal, union
library(flextable)
library(forcats)
library(ggplot2)
library(ggpubr)
## 
## Anexando pacote: 'ggpubr'
## Os seguintes objetos são mascarados por 'package:flextable':
## 
##     border, font, rotate
load("C:/Users/Manoel Perasi/Desktop/Aulas de Estatistica da Ana/Concórdia.RData")

concordia$Data <- as.Date(concordia$Data, format = "%d/%m/%Y")
library(lubridate)
## Warning: pacote 'lubridate' foi compilado no R versão 4.4.2
## 
## Anexando pacote: 'lubridate'
## Os seguintes objetos são mascarados por 'package:base':
## 
##     date, intersect, setdiff, union
concordia$ano = year(concordia$Data)
Argentina <- concordia %>%
  filter(`Outra Parte` == "Argentina")
print(Argentina)
## # A tibble: 414 × 7
##    `Titulo do Acordo`         `Tipo do Acordo` `Outra Parte` Assuntos Data      
##    <chr>                      <chr>            <chr>         <chr>    <date>    
##  1 Carta de intenções para o… Bilateral        Argentina     "Defesa… 2023-01-23
##  2 Acordo de Cooperação Antá… Bilateral        Argentina     "Cooper… 2023-01-23
##  3 Declaração Conjunta por o… Bilateral        Argentina     "Declar… 2023-01-23
##  4 Acordo, por troca de Nota… Bilateral        Argentina     "Obras … 2022-08-19
##  5 Acordo para a Prorrogação… Bilateral        Argentina     "Obras … 2021-07-19
##  6 Declaração Presidencial C… Bilateral        Argentina     "Declar… 2019-06-06
##  7 Memorando de entendimento… Bilateral        Argentina     "Meio A… 2019-06-06
##  8 Tratado de Extradição ent… Bilateral        Argentina     "Extrad… 2019-01-16
##  9 Adendo, por Troca de Nota… Bilateral        Argentina     "Relaçõ… 2018-07-12
## 10 Protocolo de Emenda à Con… Bilateral        Argentina     "Aduana… 2017-07-21
## # ℹ 404 more rows
## # ℹ 2 more variables: `Status da Tramitacao` <chr>, ano <dbl>
Argentina <- Argentina %>%
  mutate(ano = case_when(
    ano >= 1828 & ano <= 1851 ~ "1",
    ano >= 1852 & ano <= 1870 ~ "2",
    ano >= 1871 & ano <= 1880 ~ "3",
    ano >= 1881 & ano <= 1915 ~ "4",
    ano >= 1916 & ano <= 1961 ~ "5",
    ano >= 1979 & ano <= 1989 ~ "6",
    ano >= 1989 & ano <= 2005 ~ "7",
    ano > 2005 ~ "8"
  ))
ggplot(Argentina) +
  aes(x = ano) +
  geom_histogram(stat = "count", fill = "#112446") +
  theme_minimal() +
  labs(title = "Histograma Agrupado por Intervalos de Ano",
       x = "Intervalo de Ano",
       y = "Contagem")
## Warning in geom_histogram(stat = "count", fill = "#112446"): Ignoring unknown
## parameters: `binwidth`, `bins`, and `pad`