La encuesta Plaza Pública Cadem Número 378 publicada el 11 de abril de 2021 incorporó preguntas sobre segundas preferencias en la elección presidencial. La distribución de las segundas preferencias de Pamela Jiles es particularmente interesante porque cuestiona el supuesto de que su electorado se encuentra en la izquierda. El gráfico más abajo muestra el flujo de esos votos y cómo, de irse a otra candidatura, la mayor parte de ellos se irían a alguna opción en la derecha.
El código está a continuación:
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Library | |
| library(networkD3) | |
| library(dplyr) | |
| # Cargar la base con origen y destino | |
| links <- read.csv("https://www.sajuria.com/files/jilescsv.csv") | |
| # Crear los nodos de la red | |
| nodes <- data.frame( | |
| name=c(as.character(links$Source), as.character(links$Target)) %>% | |
| unique() | |
| ) | |
| #Prepara los datos para networkD3 | |
| links$IDsource <- match(links$Source, nodes$name)-1 | |
| links$IDtarget <- match(links$Target, nodes$name)-1 | |
| # Crea la red | |
| p <- sankeyNetwork(Links = links, Nodes = nodes, Source = "IDsource", Target = "IDtarget", | |
| Value = "Value", NodeID = "name", fontSize = 10, fontFamily = "Arial", | |
| height = 600, width = 800) | |
| #, colourScale=my_color | |
| p | |
| # guarda el widget | |
| library(htmlwidgets) | |
| saveWidget(p, file=paste0( getwd(), "/jiles.html")) |