Democracia minimalista

Las bases de datos

Para trabajar con estas dos bases de datos cargaremos los siguientes paquetes:

#rocardad que los paquetes han de estar préviamente instalados 
library(readr)
library(readxl)
library(foreign)
library(dplyr)
library(ggplot2)
library(tidyr)

En primer lugar iremos a buscar las dos bases de datos. La DD la encontraremos en la página web de uno de los autores José Antonio Cheibub. La DCD la encontramos en la pagina web de Michael K. Miller.

dd <- as_tibble(read.dta("https://uofi.box.com/shared/static/bba3968d7c3397c024ec.dta"))
dcd <- read_csv("https://sites.google.com/site/mkmtwo/democracy-v3.0.csv?attredirects=0")

Para las activitades de este ejercico nos puede ser útil la información sobre cómo explorar un marco de datos y sobre cómo utilizar un libro de códigos

dcd %>%
  group_by(country) %>%
  summarize(y = sum(???????????????)) %>%
  arrange(desc(y))

Diferencias entre bases de datos

Como ya sabéis, la manera en la que cada base de datos registra el número de democracias no es exactamente igual. En la siguiente Figura 1 hemos querido comparar la evolución histórica del número de democracias. Por eso hemos hecho un recuento del nombre de democracias (técnicamente estamos sumando 1s) que había cada año según una base de datos y la otra. Unimos los nuevos marcos de datos que hemos creado, dd1 y dcd1, y pedimos un diagrama de línea con el año en el eje x i el recuento de democracias en el eje de las y para cada base de datos.

#DD
dd1 <- dd %>%
  filter(democracy == 1) %>%
  count(year, name = "DD")

#DCD
dcd1 <- dcd %>%
  filter(year > 1945,
         democracy == 1) %>%
  count(year, name = "DCD")

dd1 %>%
  left_join(dcd1) %>%
  gather(base, num, -year) %>%
  ggplot(aes(x = year, y = num, col = base)) +
  geom_line(size = 1.5) +
  scale_color_brewer(type = "qual", palette = 7) +
  labs(x = "Año", y = "Número de democracias",
       col = "Base de datos") +
  theme_light() +
  theme(legend.position = c(0.8, 0.28),
        legend.background = element_blank(),
        legend.key = element_blank(),
        legend.text = element_text(size=14))

Figure 1: La democràcia a les bases de dades DCD i DD

years <- dd1 %>%
  left_join(dcd1) %>%
  mutate(diff = DD - DCD) %>%
  filter(diff > 0) %>%
  pull(year)

Cuáles son exactamente las diferencias entre una base de datos y la otra? En el codigo siguiente hemos unido los marcos de datos originales, dd y dcd, y hemos filtrado todas las observaciones que divergen entre las bases de datos DCD y DD: un país es una democracia en una base datos pero no lo es en la otra. El resultado es el objeto dcd_dd, que muestra parcialmente en la Tabla 3.

dcd_dd <- dcd %>%
  inner_join(dd, by = c("ccode" = "politycode", "year" = "year"), suffix = c("_dcd", "_dd")) %>%
  mutate(var = democracy_dcd - democracy_dd) %>%
  filter(var != 0) %>%
  select(country = ctryname, year, democracy_dcd, democracy_dd)

dcd_dd %>%
  slice(1:15)

dcd_dd %>%
  count(country) %>%
  ?????(????)