library(readr)
library(readxl)
library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(haven)
polityV <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT_49r0cbVCYXOaaupD62Eq9xg26Cr-tpplzDw5m4A-OhNiedsFcADYK-XwittDqQ/pub?gid=2096442556&single=true&output=csv")

L’indicador polityv es una base de dades que pels règims polítics de tots els països (des del 1800 fins l’actualitat), els classifica a través de diferents indicadors, per mesurar l’autoritat i la democràcia. A més, es puntua del -10 (autocràcia) al +10 (democràcia).

España <- polityV %>% filter(country == "Spain")
España_siglo_XIX <- España %>% filter(year >= 1800 & year <= 1899) %>% select(country, year, polity)
España_siglo_XX <- España %>% filter(year >= 1900 & year <= 1999) %>% select(country, year, polity)
ggplot(España_siglo_XIX, aes(x = year, y = ifelse(polity > -10, polity, -10), group = country, color = country)) +
  geom_path() +
  labs(title = "Gráfico Longitudinal de Polity para España en el Siglo XIX",
       x = "Año",
       y = "Polity") +
  theme_minimal()

ggplot(España_siglo_XX, aes(x = year, y = ifelse(polity > -10, polity, -10), group = country, color = country)) +
  geom_path() +
  labs(title = "Gráfico Longitudinal de Polity para España en el Siglo XX",
       x = "Año",
       y = "Polity") +
  theme_minimal()

He volgut comparar tot el segle XIX i XX d’Espanya, tot i que n’hi ha molts períodes històrics.

D’entrada el segle XIX té constantment inestabilitat política, a més de volver instaurar un sistema polític que fos estable i democràtic, constament. Aleshores, al 1808 tenim la instauració de la monarquia constitucional, després, es va tornar a l’absolutisme, degut a la derrota napoleònica, i el torn pacífic no va ser bo. També va fracassar la Revolució Gloriosa de 1868 i el Sexenni Democràtic. A part que la Restauració borbònica (1874-1931), tampoc va ser la gran cosa, degut al caciquisme.

Després, en el segle XX tenim la continació de la Restauració, la dictadura de Primo de Rivera i la proclamació de la Segona República (1931), on polity V la valora a España amb un alt valor, abans de la victòria de Franco. Després de la victòria, tenim la dictadura, que després de la mort del dicatador, Espanya va viure la Transició cap a la democràcia. Després de finalitzar aquest període, amb la nova Constitució (del 1978), Espanya es dispara cap amunt a l’índex (mai ha estat tan alt en algun moment dels dos segles).

Amb tot això, queda reflexat que Espanya no l’ha tingut fàcil per instaurar la democràcia en el seu país. Tot i haver-hi un període amb un bon nivell, va haver-hi una guerra civil, i la va portar a una dictadura. Després de molts intents durant els dos segles en instaurar-la, finalment ho van decidir fer, d’una forma mai vista arreu del món, que va culminar instaurant un sistema democràtic amb una monarquia parlamentària, i una nova constitució, que encara està vigent i ha estat poques vegades modificada fins l’actualitat, degut a que volien que aquell nou sistema fos estable i perdures.