Indicadores de poder militar




Indicadores de poder económico




Indicadores de poder tecnológico




Comparación índices de poder relativo




Cómo utilizar la base de datos para crear gráficos

Si quieren utilizar la base de datos para generar gráficos, cuadros o explorar datos concretos, en primer lugar hay que descargar el archivo de la carpeta de Google Drive e introducirla en la carpeta del proyecto en R Studio.

A continuación es necesario cargar los paquetes que se utilizarán y que deben estar previamente instalados.

library(dplyr)
library(knitr)
library(stringr)
library(tidyr)
library(readxl)
library(gapminder)
library(ggplot2)
library(paletteer)

Para poder operar con el archivo excel y cargarlo en el entorno de R, creamos el objeto “datos”.

datos <- read_excel("base_datos_normalizada.xlsx") #leer base de datos


Ejemplo de como se ha creado el primer gráfico:

Se ha seleccionado la función ‘filter’ para filtrar por país y la función ‘ggplot()’ para crear los gráficos. Mediante la función geom_line() se han indicado los estéticos: el eje x debe mostrar la variable año y el eje y las variables que se desean mostrar en el gráfico. En este caso se han seleccionado las variables gasto_militar, personal_militar y armas_nucleares. Se han utilizado otras funciones como ‘labs’ para poner título, subtítulo, nombrar los ejes, una leyenda de los indicadores, así como para referenciar las fuentes. También se han utilizado funciones adicionales para dar color a las líneas y elegir un tema para el gráfico.

Código gráfico 1:

datos %>%
  filter(país %in% c("Estados Unidos")) %>%
  ggplot() +  
  geom_line(aes(x = año, y = gasto_militar, col = "Gasto Militar"), size = 1.2) +
  geom_line(aes(x = año, y = personal_militar, col = "Personal Militar"), size = 1.2) +
  geom_line(aes(x = año, y = armas_nucleares, col = "Ojivas Nucleares"), size = 1.2) +
  labs(
    x = "Año", 
    y = "% del Total Mundial", 
    title = "Gráfico 1", 
    subtitle = "Indicadores Militares de Estados Unidos como Porcentaje del Total Mundial",
    caption = "Elaboración propia. Fuentes: SIPRI (2024), Banco Mundial (2024), Correlates of War (2024) y Kristensen et al (2024).") +
  scale_color_manual(name = "Indicadores", values = c("Personal Militar" = "#FFAD73", "Gasto Militar" = "#F76E5E", "Ojivas Nucleares" = "#A60021")) +
  scale_y_continuous(labels = scales::percent) +
  theme_minimal() +
  theme(plot.caption = element_text(hjust = 0, margin = margin(t = 20)))

No obstante, las posibilidades para crear gráficos son infinitas y también se pueden utilizar otras funciones para crear cuadros y otro tipo de gráficos. Por ejemplo, se puede filtrar por año, indicador y país para buscar datos concretos. Otro ejemplo sería mostrar los dos Estados respecto a un indicador en concreto en una época determinada.