Elecciones en País Vasco y Galicia (12 Julio 2020)

---
title: "Elecciones en País Vasco y Galicia (12 Julio 2020)"
author: "Rubén F. Bustillo"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    orientation: columns
    source_code: embed
    vertical_layout: fill
    theme: paper
---

```{r setup, include=FALSE}


# PACKAGES / LIBRARIES:

library(flexdashboard)
library(waffle)
library(tidyverse)


```



**" Ensayo sobre la lucidez ... " **

**Extracto de la novela de José Saramago (2004)**

"La impresionante tranquilidad de los votantes en las calles y dentro de los colegios electorales no se correspondía con la disposición de ánimo en los gabinetes de los ministros y en las sedes de los partidos. La cuestión que más les preocupa a unos y a otros es hasta dónde alcanzará esta vez la abstención, como si en ella se encontrara la puerta de salvación para la difícil situación social y política en que el país se encuentra inmerso desde hace una semana. Una abstención razonablemente alta, o incluso por encima de la máxima verificada en las elecciones anteriores, mientras no sea exagerada, significaría que habríamos regresado a la normalidad, la conocida rutina de los electores que nunca creen en la utilidad del voto e insisten contumazmente en su ausencia, la de los otros que prefieren aprovechar el buen tiempo para pasar el día en la playa o en el campo con la familia, o la de aquellos que, sin ningún motivo, salvo la invencible pereza, se quedan en casa  (...)

(...) A las diez de la noche, finalmente, apareció en televisión el primer ministro. Venía con el rostro demudado, con ojeras profundas, efecto de una semana entera de noches mal dormidas, pálido a pesar del maquillaje tipo buena salud. Traía un papel en la mano, pero casi no lo leyó, apenas le alcanzó alguna que otra mirada para no perder el hilo de su discurso, Queridos conciudadanos, dijo, el resultado de las elecciones que hoy se han realizado en la capital es el siguiente, partido de la derecha, ocho por ciento, partido del medio, ocho por ciento, partido de la izquierda, uno por ciento, abstenciones, cero, votos nulos, cero, votos en blanco, ochenta y tres por ciento."

País Vasco
====================================================================================


### País Vasco

\

```{r, out.width="100%", fig.width=12, fig.height=5}

votos_eus <- c('Abstenciones = 809.990' = 809990, 
           'Votos nulos = 6.735' = 6735,
           'Votos en blanco = 8.515' = 8515,
           'EAJ-PNV = 349.429' = 349429,
           'EH-Bildu = 248.688' = 248688,
           'PSE-EE = 121.869' = 121869,
           'PODEMOS-IU = 71.759' = 71759,
           'PP+Cs = 60.299' = 60299,
           'VOX = 17.517' = 17517,
           'EQUO-BERDEAK = 11.616' = 11616,
           'PACMA/ATTKAA = 4.865' = 4865,
           'EB-AZ = 2.463'  = 2463,
           'RECORTES CERO-LV-M = 1.295' = 1295,
           'PUM+J = 1.094' = 1094,
           'LxE-EaL = 697' = 697,
           'PCTE/ELAK = 546' = 546,
           'L.F.F = 309' = 309,
           'PH = 278' = 278,
           'P-LIB = 174' =  174,
           'UCDE = 119' = 119,
           'OE = 61' = 61)


waffle(votos_eus/200,
       rows = 70, 
       size = 0.1,
       colors = c("grey80", 
                  "grey50",
                  "grey20",
                  "springgreen4",
                  "yellowgreen",
                  "red3",
                  "purple3",
                  "blue3",
                  "limegreen",
                  "turquoise1", #equo
                  "olivedrab", # pacma
                  "tan3", # eb az
                  "darkgreen", # recortes cero
                  "steelblue1", # pum-j
                  "mediumaquamarine", #lxe
                  "red",
                  "mediumseagreen", #lff
                  "orangered",
                  "moccasin", #p-lib
                  "seagreen",
                  "black"
       ),
       title = 'País Vasco. Resultados Provisionales (censo: 1.718.318)', 
       legend_pos = "bottom",
       xlab =  "1 cuadrado == 200 personas")


```



Galicia
====================================================================================


### Galicia

\

```{r, out.width="100%", fig.width=12, fig.height=5}

votos_gal <- c('Abstenciones = 918.799' = 918799, 
           'Votos nulos = 12.558' = 12558,
           'Votos en blanco = 11.722' = 11722,
           'PP = 625.182' = 625182,
           'BNG = 310.137' = 310137,
           'PSdeG-PSOE = 252.537' = 252537,
           'PODEMOS-ESQU. UNIDA-ANOVA = 51.223' = 51223,
           'VOX = 26.485' = 22485,
           'Cs = 9.719' = 9719,
           'PACMA = 6.055' = 6055,
           'EN MAREA-COMPR. POR GALICIA-PART. GALEGISTA = 2.863' = 2863,
           'RECORTES CERO-ESCO-OV-M = 1.787' = 1787,
           'EQUO = 922' = 922,
           'PCTG = 885' = 955,
           'PUM+J = 791' = 791,
           'EB = 554' = 554,
           'ADCG = 553' = 553,
           'UNIDOS SI-UDP-DEf = 528' = 528,
           'CCD--AU.TO.NO.MO = 324' = 324,
           'P-LIB = 308' =  308,
           'UPYD = 224' = 224,
           'CONTIGO = 115' = 115,
           'C 21 = 38' = 38)


waffle(votos_gal/200,
       rows = 80, 
       size = 0.1,
       colors = c("grey80", 
                  "grey50",
                  "grey20",
                  "blue3",
                  "cornflowerblue",
                  "red3",
                  "purple3",
                  "limegreen",
                  "orange",
                  "olivedrab", # pacma
                  "dodgerblue",
                  "darkgreen", # recortes cero
                  "mediumseagreen",
                  "indianred4",
                  "steelblue1", #pumj
                  "tan3",
                  "midnightblue",
                  "lightseagreen",
                  "black",
                  "moccasin", #plib
                  "mediumvioletred",
                  "lawngreen",
                  "tan1"
                  ),
       title = 'Galicia. Resultados Provisionales (censo: 2.234.309)', 
       legend_pos="bottom",
       xlab = "1 cuadrado == 200 personas")



```