Disputas interestatales

La base de datos

La base de datos Militarized Interstate Disputes (v5.0) (Palmer et al. 2020) contiene información detallada sobre conflictos en que uno o más estados amenazan, muestran o utilizan la fuerza contra uno o más estados, entre 1816 y 2014. Para acceder a la base de datos, tendremos que descargar el archivo MID 5 Data and Supporting Materials.zip y descomprimir el zip. Si aplicáis el código siguiente os situará todos los archivos en el directorio de trabajo.

download.file("https://correlatesofwar.org/wp-content/uploads/MID-5-Data-and-Supporting-Materials.zip", "MID5.zip")

De todos los archivos que hemos descomprimido, de momento nos interesamos en los dos archivos .csv donde tenemos los datos por disputa militarizada (MIDA 5.0.csv) y por incidente (MIDI 5.0.csv).

1. Datos por disputa militarizada: El archivo MIDA 5.0.csv contiene información de disputas militarizadas producidas entre 1816 y 2010. La unidad de análisis es el inicio de la disputa militarizada
2. Datos por incidente de la disputa militarizada: El archivo MIDI 5.0.csv contiene información de disputas militarizadas producidas entre 1930 y 2010. La unidad de análisis es el incidente de la disputa militarizada.

mida <- read_csv("MIDA 5.0.csv") #tenéis que tener cargado el paquete readr
head(mida, 10)

Las coordenadas

Las coordenadas nos indican el lugar exacto de un mapa donde asociamos determinada información. Como sabéis, en un mapa del mundo necesitamos saber la longitud (eje horizontal) y la latitud (eje vertical). Las coordenadas de cada incidente las encontramos en otra base de datos de COW, la Militarized Interstate Dispute Locations (v2.1) (Bezerra and Braithwaite 2019). Para descargar los datos, tendremos que aplicar el código que se nos muestra a continuación, en el cual descargamos el archivo MIDLOC_2.1.zip al directorio de trabajo y lo descomprimimos.

download.file("https://correlatesofwar.org/data-sets/MIDLOC/midloc_2-1.zip/@@download/file/MIDLOC_2.1.zip", "MIDLOC_2.1.zip")
unzip("MIDLOC_2.1.zip")

Cuando abrimos el archivo zip se nos ubica a nuestro directorio de trabajo dos archivos .csv con datos de geolocalización: MIDLOCA_2.1.csv y MIDLOCI_2.1.csv.

1. MIDLOC-A v2.1: Contiene información de disputas militarizadas producidas entre 1816 y 2010. La unidad de análisis es el inicio de la disputa militarizada. Por lo tanto, la geolocalización muestra el lugar del inicio de la disputa, aunque luego se hayan podido producir incidentes en otros lugares.
2. MIDLOC-I v2.1: Contiene información de disputas militarizadas producidas entre 1993 y 2010. La unidad de análisis es el incidente de la disputa militarizada. Por lo tanto, la geolocalización muestra el lugar de cada incidente. Una disputa militarizada puede tener varios incidentes, entre ellos el incidente que inició la disputa.

Si nos interesan los datos por disputa militarizada, utilizaremos el archivos MIDLOCA_2.1.csv. A continuación, convertimos el archivo en el objeto de R midloca. En la Tabla 2 vemos el resultado de teclear head(midloca) en la consola.

midloca <- read_csv("MIDLOCA_2.1.csv")  #tenéis que tener cargado el paquete readr
head(midloca)

Descripción de los conflictos

Es muy importante, al comenzar este apartado, asegurarse de haber comprendido el significado de la columna dispnum, que hemos visto en el apartado anterior. La descripción de todas las disputas militarizadas de la base de datos Militarized Interstate Disputes se encuentran en el libro International Conflicts, 1816-2010: Militarized Interstate Dispute Narratives, disponible en el aula y en la biblioteca de la UOC. Este libro está organizado en dos partes:

• Introducción: Contiene una definición de disputa militarizada y información de como el libro está organizado.
• Disputas militarizadas: A partir de la página 4 se describen varios detalles de 2.212 disputas militarizadas entre 1816 y 2010. Fijáos que cada disputa tiene un código asociado. Por ejemplo, la primera disputa que aparece en la página 4 es la número 2.968, que corresponderá con dispnum de la MID dataset.

También, podéis consultar la descripción de las disputas militarizadas más recientes de 1993 en tres archivos que se encuentran dentro del archivo MID5.zip: MID_Narratives 1993-2001.pdf, MID_Narratives 2002-2010.pdf y MID Narratives 2011-2014.pdf.

Herramientas de mapeo

Una vez tenemos la información necesaria y las coordenadas de esta información, solo nos queda ubicar todos los elementos en un mapa. En esta parte utilizaremos distintas herrramientas de mapeo del programario R:

• El mapa base lo crearemos con el paquete ggmap.
• La información la trataremos con dplyr y la colocaremos al mapa con ggplot2

#Con la función get_stamenmap creamos un mapamundi
world_map <- get_stamenmap(bbox = c(top = 75,
                                    left = -170, right = 170,
                                    bottom = -58),
                                    zoom = 2, #indicamos la resolución del mapa
                                    maptype = "terrain-background")

ggmap(world_map)

Información del mapa

Ahora ya tenemos el mapa, las coordenadas y la información. Solo nos queda juntar todos estos elementos con el mapa. Haremos una primera prueba con las herramientas del paquete ggplot2, que nos permiten ubicar las observaciones del objeto midloca en el mapa que acabamos de crear. Para esto, indicaremos las coordenadas horizontales (midloc2_xlongitude) y verticales (midloc2_ylatitude), así como algunos atributos, como el color y la trasparencia de los puntos. El resultado es el mapa que observamos en la Figura 1

#Introducimos los datos de midloca al mapamundi
world_map %>% #mapa base
  ggmap(base_layer = ggplot(aes(x = midloc2_xlongitude, #¿Qué variable ponemos en el eje de las x?
                                y = midloc2_ylatitude), #¿Qué variable ponemos en el eje de las y?
                          data = midloca)) + #¿Dónde se encuentran las coordenadas?
  geom_point(alpha = 0.3, col = "blue") #definimos transparencia al 40% y color azul

Figure 1: Disputas militarizadas interestatales en el mundo (1816-2020)

Ejercicio 4: Observad el mapa de la Figura 1 y responde a las siguientes preguntas:

• ¿Cuáles son las coordenadas que marcan los límites izquierdo, derecho, superior e inferior del mapa?
• ¿Dónde se encuentran más concentrados los conflictos interestatales?
• ¿En qué zonas del mundo ha habido menos conflictos interestatales?
• ¿Qué país se encuentra situado en la longitud -100 y latitud 25?
• ¿Qué isla se encuentra situada aproximadamente en la longitud 50 y latitud -25?
• ¿A qué longitud y latitud se encuentra aproximadamente España?

Visualizar disputas militarizadas

A continuación, vamos a mostrar un ejemplo de como visualizar uno o varios conflictos según si utilizamos como unidad de análisis la disputa militarizada o el incidente de la disputa militarizada.

Si tomamos como unidad de análisis la disputa militarizada utilizaremos el marco de datos midajoin, que creamos a partir de los objetos mida y midloca con el código que se muestra a continuación. Este código une los dos objetos y también recodifica algunas variables que hemos tratado anteriormente, como settle o fatality. Las primeras observaciones de midajoin se muestran en la Tabla 3. Fijaos que ahora tenemos las coordenadas e información de la disputa en un mismo marco de datos.

midajoin <- mida %>%
  left_join(midloca, by = c("dispnum")) %>%
  select(dispnum, location = midloc2_location, measuringpoint = midloc2_measuringpoint, 
         lon = midloc2_xlongitude, lat = midloc2_ylatitude, styear, endyear, 
         settle, hostlev, fatality, fatalpre, maxdur, mindur, recip, numa, numb) %>%
  mutate(settle = case_when(settle == 1 ~ "Negotiated",
                            settle == 2 ~ "Imposed",
                            settle == 3 ~ "None",
                            settle == 4 ~ "Unclear",
                            TRUE ~ "Missing"),
         fatality = case_when(fatality == 0 ~ "None",
                              fatality == 1 ~ "1-25",
                              fatality == 2 ~ "26-100",
                              fatality == 3 ~ "101-250",
                              fatality == 4 ~ "251-500",
                              fatality == 5 ~ "501-999",
                              fatality == 6 ~ "More than 999",
                              TRUE ~ "Missing"),
         hostlev = case_when(hostlev == 1 ~ "No militarized action",
                             hostlev == 2 ~ "Threat to use force",
                             hostlev == 3 ~ "Display of force",
                             hostlev == 4 ~ "Use of force",
                             hostlev == 4 ~ "War"))

A continuación, creamos el mapa mida_map y ubicamos los conflictos que tienen como número de disputa (dispnum) 3, 4 y 7. Hemos ubicado algunas variables en el mapa y hemos puesto la transparencia de los puntos (alpha) a 0.5

#Con la función get_stamenmap creamos un mapamundi
mida_map <- get_stamenmap(bbox = c(top = 75,
                                    left = -170, right = 170,
                                    bottom = -58),
                                    zoom = 2, #indicamos la resolución del mapa
                                    maptype = "terrain-background")

#Introducimos los datos de midloca en el mapamundi
mida_map %>% 
  ggmap(base_layer = ggplot(aes(x = lon, y = lat,
                                col = fatality, #elige settle, hostlev o fatality
                                size = styear), #elige fatalpre, maxdur o mindur
  data = filter(midajoin, dispnum %in% c(3,4,7)))) + 
  geom_point(alpha = 0.5)

Figure 2: Conflictos en Austria, Corfú y Canal de Suez

View(filter(midajoin, dispnum == XXXX))