20619_R1_Actividad 1.3

Actividad 1.3. Quarto.

En la actividad planteada se propone reproducir una tabla y un gráfico en un documento Quarto, tareas para las cuales se siguen las indicaciones del módulo ‘R en Ciencias Sociales’ (Mas 2023).

Como base para la generación de los objetos se selecciona la National Material Capabilities o NMC, un conjunto de datos creado por J. David Singer y Melvin Small (Singer y Small 1972) (Singer 1987), enmarcado dentro del proyecto Correlates of War.

Tabla

Quizá la manera más sencilla y efectiva de visualizar los valores del NMC sea mediante un marco de datos, es decir, en un formato de tabla que ordene en filas y columnas los distintos indicadores y sus valores correspondientes. Un ejemplo sería el siguiente:

nmc <- read_csv("nmc.csv")
nmc |> 
  filter(stateabb == "SPN") |>
  select(State = stateabb, Year = year, `Military expenditures` = milex, `Military personnel` = milper, IRST = irst, `Energy consumption`= pec, `Total population` = tpop, `Urban population` = upop, CINC = cinc) |> 
  head(10) |>
  knitr::kable()

State	Year	Military expenditures	Military personnel	IRST	Energy consumption	Total population	Urban population	CINC
SPN	1816	6512	125	10	0	11073	221	0.0463931
SPN	1817	4703	126	10	0	11156	228	0.0424208
SPN	1818	4681	126	10	0	11241	234	0.0440298
SPN	1819	4552	127	10	0	11326	241	0.0427772
SPN	1820	4406	146	10	0	11411	248	0.0427953
SPN	1821	1692	165	10	0	11498	255	0.0342722
SPN	1822	-9	158	10	0	11584	262	0.0323431
SPN	1823	-9	114	10	0	11672	269	0.0299894
SPN	1824	-9	93	10	0	11760	277	0.0267907
SPN	1825	-9	93	20	0	11849	285	0.0286571

Tras revisar los códigos de país del proyecto COW (COW 2022), se ha utilizado filter para mostrar únicamente las 10 primeras observaciones registradas de España (SPN), ordenadas cronológicamente desde el año en el que comienzan a recopilarse datos (1816). Igualmente, se han modificado los nombres de las columnas para clarificar qué información presenta cada una.

Gráfico

El CINC, Composite Index of National Capability, es un índice compuesto que mide, en valores comprendidos entre 0 y 1, el poder de cada país tomando como referencia sus capacidades materiales (COW 2021), divididas en aquellas de tipo demográfico (población), industrial (producción y consumo) y militar (ejército).

Así, usando los datos recopilados por el NMC, se puede diseñar un gráfico que muestre la evolución del CINC a lo largo del tiempo en dos países distintos:

nmc |> 
  filter(stateabb %in% c("USA", "RUS")) |> 
  ggplot(aes(x = year, y = cinc, col = stateabb)) +
  geom_line() +
  labs(title = "Evolution of CINC scores",
       x = "Year",
       y = "Composite Index of National Capability",
       col = "State")

En este caso, se han escogido Estados Unidos y Rusia mediante el comando filter y, además, se han editado el título de la figura y sus ejes con labs.

Bibliografía y webgrafía.

COW. 2021. «National Material Capabilities (v6.0)». https://correlatesofwar.org/data-sets/national-material-capabilities.

———. 2022. «COW country codes». https://correlatesofwar.org/data-sets/cow-country-codes.

Mas, J. 2023. «R en Ciencias Sociales». FUOC. https://jmas.quarto.pub/r-en-ciencias-sociales.

Singer, J. D. 1987. «Reconstructing the Correlates of War Dataset on Material Capabilities of States, 1816-1985». International Interactions 14: 115-32. https://doi.org/10.1080/03050628808434695.

Singer, J. D., y M. Small. 1972. The wages of war, 1816-1965: a statistical handbook. Wiley.