10  Declive democrático

Para ver el funcionamiento del paquete countrycode con datos reales, observaremos la evolución de la democracia liberal desde el inicio de las instituciones de Bretton Woods hasta la actualidad, teniendo en cuenta el nivel de desarrollo de cada país. Lo que necesitamos son datos por país-año desde 1950, que podemos encontrar en dos bases de datos. En primer lugar, obtenemos los datos de democracia en Varieties of Democracy (Coppedge et al., 2021). Observamos en la Tabla 10.1 que tenemos nuestra variable de interés sobre la democracia liberal (v2x_libdem), el año (year) y la codificación de país que utiliza V-Dem (countryid).

Tabla 10.1: Varieties of Democracy dataset, v12
country_id country_name year v2x_polyarchy v2x_libdem
3 Mexico 2021 0.628 0.387
4 Suriname 2021 0.760 0.648
5 Sweden 2021 0.907 0.878
6 Switzerland 2021 0.885 0.836
7 Ghana 2021 0.663 0.568
8 South Africa 2021 0.715 0.593

En segundo lugar, obtenemos los datos del PIB per cápita de las Penn World Tables (Feenstra et al., 2015). En la Tabla 10.2 observamos la variable del PIB per cápita (gdpcap), la variable año (year) y el código de país COW (countrycode).

Tabla 10.2: Penn World Tables dataset, v10
countrycode country year rgdpo pop gdpcap
ABW Aruba 2019 3467.2996 0.106314 32613.763
AGO Angola 2019 227855.7188 31.825295 7159.579
AIA Anguilla 2019 225.6805 0.014869 15177.922
ALB Albania 2019 36103.0430 2.880917 12531.789
ARE United Arab Emirates 2019 645956.2500 9.770529 66112.720
ARG Argentina 2019 977420.5625 44.780677 21826.838

Transformaremos el primer marco de datos con la función countrycode(), especificando que queremos convertir la columna de primer marco de datos country_id, que se encuentra en codificación vdem, a codificación cowc. A continuación, uniremos el primero y el segundo marco de datos, especificando que queremos unirlas por la columna year y por el código de país, que en el primer marco de datos se llama cowc, y en el segundo toma el nombre de countrycode. El resultado es el que vemos en la Tabla 10.3.

En esta actividad no se proporcionan los marcos de datos vdem12 y pwt, por lo cual el código que se muestra no es reproducible. Sólo hay que fijarse en cómo se aplican las funciones countrycode() y left_join().

demgdp <- vdem12 |> 
  mutate(cowc = countrycode(country_id, "vdem", "cowc")) |> 
  left_join(pwt, by = c("year", "cowc" = "countrycode"))
Tabla 10.3: Penn World Tables dataset, v10
country_id country_name year v2x_polyarchy v2x_libdem cowc country rgdpo pop gdpcap
51 Venezuela 2019 0.209 0.073 VEN Venezuela (Bolivarian Republic of) 7160.107 28.515829 251.0924
86 Liberia 2019 0.610 0.433 LBR Liberia 6212.170 4.937374 1258.1931
14 Yemen 2019 0.116 0.040 YEM Yemen 51828.059 29.161922 1777.2511
119 Guinea-Bissau 2019 0.534 0.340 GNB Guinea-Bissau 3554.279 1.920922 1850.2985
50 Uganda 2019 0.300 0.228 UGA Uganda 92618.594 44.269594 2092.1492
129 Rwanda 2019 0.238 0.132 RWA Rwanda 28783.219 12.626950 2279.5068

Con los datos juntados, podemos obtener visualizaciones como las que vemos a continuación. En la Figura 10.1, observamos la evolución de la democracia en el mundo teniendo en cuenta el PIB per cápita de cada país. Actualmente, ponderando por el peso económico de cada país, la calidad de la democracia se encuentra a niveles inferiores a los de 1950. En la Figura 10.2, vemos la relación entre democracia liberal y PIB per cápita, donde la medida de los puntos representa la población de cada país. No observamos una relación muy clara entre democracia y desarrollo. También vemos como las dos observaciones con más población tienen unos niveles de democracia bajos.

Figura 10.1: Evolución de la democracia en el mundo según PIB per cápita de cada país

Figura 10.2: Relación entre democracia, PIB per càpita i población el 2019

Para saber más: Para una visualización más completa, ver Three ways to measure liberal democracy in the world. El código de R se puede obtener en este Github