Projeto: Vitor Nayron Moreira - Programa de Pós Graduação em Economia/UFPB
Hoje (01), o mundo observou mais uma vez a escalada dos conflitos no Oriente Médio após o ataque com mísseis balísticos do Irã contra Israel, como retaliação pelas mortes de líderes do Hezbollah e Hamas. Além do Oriente Médio, outras regiões do mundo vivem em guerra, como o caso da Rússia e Ucrânia e até mesmo as tensões entre China e Taiwan, bem como a Coreia do Sul e a Coreia do Norte.
As guerras são ações com impactos humanitários graves e de um volume muito grande de recursos financeiros necessários para o financiamento dos equipamentos militares.
Diante disso, com base nos dados disponibilizados pela Stockholm International Peace Research Institute , que é um instituto internacional independente dedicado à pesquisas sobre conflitos, armamentos, controle de armas e desarmamento, será analisado os gastos militares de alguns países em relação ao PIB.
Serão analisadas as informações do Brasil, China, Irã, Israel, Rússia, Ucrânia e Estados Unidos para o período de 2000 a 2023 (último ano com informações disponíveis). Os dados estão em percentual (%) em relação ao Produto Interno Bruto (PIB).
A observação para o ano 2000 de Israel foi estimada pelo Instituto. Da mesma forma, também foram estimadas as informações para todos os anos da China; para o período de 2000 a 2012 e de 2022 a 2023 para a Rússia; e para o período de 2004 a 2023 nas informações da Ucrânia.
#Limpando o R
rm(list=ls(all=TRUE))
#Pacotes necessários
library(readxl)## Warning: package 'readxl' was built under R version 4.2.3library(dplyr)## Warning: package 'dplyr' was built under R version 4.2.3##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(leaflet)## Warning: package 'leaflet' was built under R version 4.2.3library(ggplot2)## Warning: package 'ggplot2' was built under R version 4.2.3library(plotly)## Warning: package 'plotly' was built under R version 4.2.3##
## Attaching package: 'plotly'## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layout#Dados
Gastos_Militares <- read_excel("C:/Users/vitor/Downloads/Gastos Militares.xlsx")
View(Gastos_Militares)
#Estatística Descritiva
summary(Gastos_Militares)## Data EUA_GASTO ISRAEL_GASTO CHINA_GASTOS
## Min. :2000 Min. :0.03112 Min. :0.04456 Min. :0.01605
## 1st Qu.:2006 1st Qu.:0.03392 1st Qu.:0.05405 1st Qu.:0.01696
## Median :2012 Median :0.03665 Median :0.05708 Median :0.01744
## Mean :2012 Mean :0.03817 Mean :0.05778 Mean :0.01780
## 3rd Qu.:2017 3rd Qu.:0.04077 3rd Qu.:0.06312 3rd Qu.:0.01870
## Max. :2023 Max. :0.04904 Max. :0.06594 Max. :0.02059
## RUSSIA_GASTOS UCRANIA_GASTOS IRA_GASTOS BRASIL_GASTOS
## Min. :0.03119 Min. :0.02258 Min. :0.02061 Min. :0.01070
## 1st Qu.:0.03408 1st Qu.:0.02726 1st Qu.:0.02179 1st Qu.:0.01344
## Median :0.03705 Median :0.02855 Median :0.02412 Median :0.01428
## Mean :0.03895 Mean :0.05404 Mean :0.02505 Mean :0.01442
## 3rd Qu.:0.04128 3rd Qu.:0.03644 3rd Qu.:0.02789 3rd Qu.:0.01509
## Max. :0.05864 Max. :0.36653 Max. :0.03315 Max. :0.01952| País | Média | Mínimo | Máximo |
|---|---|---|---|
| EUA | 3,82% | 3,11% | 4,9% |
| Israel | 5,78% | 4,46% | 6,6% |
| China | 1,8% | 1,6% | 2% |
| Rússia | 3,89% | 3,11% | 5,86% |
| Ucrânia | 5,4% | 2,25% | 36,65% |
| Irã | 2,5% | 2,06% | 3,31% |
| Brasil | 1,44% | 1% | 1,95% |
A partir da estatística descritiva, é possível observar que, em termos percentuais, para o período analisado, Israel assume a liderança. Vale destacar que essas informações se trata do percentual do PIB destinado para as questões bélicas. Outra informação que chama a atenção é o caso da Ucrânia, que vivencia uma guerra nos últimos anos e registrou um percentual de gastos miliares em torno de 36% do PIB.
# Criando um gráfico usando ggplot2
grafico <- ggplot(Gastos_Militares, aes(x = Data)) +
geom_line(aes(y = EUA_GASTO, color = "EUA")) +
geom_line(aes(y = BRASIL_GASTOS, color = "Brasil")) +
geom_line(aes(y = IRA_GASTOS, color = "Irã")) +
geom_line(aes(y = RUSSIA_GASTOS, color = "Rússia")) +
geom_line(aes(y = CHINA_GASTOS, color = "China")) +
geom_line(aes(y = UCRANIA_GASTOS, color = "Ucrânia")) +
geom_line(aes(y = ISRAEL_GASTO, color = "Israel")) +
labs(title = "Percentual do PIB em Gastos Militares - 2000 a 2023 ",
x = "Ano",
y = "Gasto Militar (% do PIB)") +
scale_color_manual(name = "Países",
values = c("EUA" = "blue", "Brasil" = "green", "Irã" = "red",
"Rússia" = "purple", "China" = "orange", "Ucrânia" = "brown", "Israel" = "pink"))
# Transformando o gráfico em interativo com plotly
grafico_interativo <- ggplotly(grafico)
# Exibindo o gráfico
grafico_interativoGraficamente, fica evidente o aumento das despesas militares da Ucrânia. A Rússia aumentou também nos últimos anos, mas de forma menos acentuada quando comparado com a Ucrânia. Além disso, é possível observar que no período analisado, Israel apresentou níveis mais altos da relação % do PIB em gastos militares quando comparado com os demais países analisados. No caso do Brasil, há uma estabilidade do indicador ao longo desses períodos.
# Médio dos Gastos Militares (% do PIB)
gastos_militares <- data.frame(
pais = c("China", "Brasil", "Israel", "Irã", "EUA", "Rússia", "Ucrânia"),
media_gastos = c(1.8, 1.44, 5.78, 2.5, 3.8, 3.89, 5.4),
lat = c(34.801124322584464, -8.054096446873947, 30.97060202291808,
31.847462345765088, 39.05737176611321, 62.08100797627473, 49.10107629469107),
long = c(102.57287718552057, -56.36219643111338, 34.776532460391415,
54.425480088376936, -102.15663040985638, 94.21093783118323, 31.243847766831152)
)
# Mapa dinâmico com leaflet
mapa <- leaflet(gastos_militares) %>%
addTiles() %>%
addCircleMarkers(
lng = ~long, lat = ~lat,
radius = ~media_gastos * 3, # Multiplicador para ajustar o tamanho dos círculos
color = "blue",
fillOpacity = 0.6,
popup = ~paste("<b>País:</b>", pais, "<br><b>Média dos Gastos (% do PIB):</b>", media_gastos)
) %>%
setView(lng = 34, lat = 30, zoom = 2) # Ajuste da visualização inicial
# Exibir o mapa
mapaA análise do mapa facilita a visualiação dos países com a maior média para os últimos 23 anos do % do PIB destinado para os gastos militares.