library(readr) #CARGAMOS PAQUETES
library(dplyr)
library(tidyr)
data <- read.csv("datos/1976_2020_president.csv") #Vi que este paquete era mejor para traer la información
library(tidyverse)
data <- data %>% #No me cargaban bien los datos y cree las variables por separado
separate(col = 1,
into = c("year", "state", "state_po", "state_fips", "state_cen",
"state_ic", "office", "candidate", "party_detailed",
"writein", "candidatevotes", "totalvotes", "version",
"notes", "party_simplified"),
sep = ",")
my_data <- data #Creo mis datos y empiezo a modificar a mi gusto
my_data <- data %>%
mutate(full_name = paste(party_detailed, candidate)) #Uní el nombre y el apellido
my_data <- my_data %>%
select(-(4:6) , -(13:15))
#Quito variables que no se usan
my_data <- my_data %>%
select(-(5:6))
library(stringr) #Busco y con este paquete puedo quitar las comilllas de mi data frame
my_data$state_po <- gsub('"', '', my_data$state_po)
my_data$office <- gsub('"', '', my_data$office)
my_data$writein <- gsub('"', '', my_data$writein)
my_data$full_name <- gsub('"', '', my_data$full_name)
my_data$state <- gsub ('"' , '' , my_data$state)
my_data <- my_data %>%
mutate(year = as.numeric(year)) #Como las variables estaban en character, cambio year y totalvotes a nunerico
my_data <- my_data %>%
mutate(totalvotes = as.numeric(totalvotes))
my_data <- my_data %>%
filter(writein %in% c("DEMOCRAT", "REPUBLICAN")) %>% #Voy paso por paso quitando datos
filter(year > 1990) %>% #Me decido por solo hacerlo a partir de 1990
drop_na()
My_final_data <- my_data %>% #defino el data frame con el cual voy a trabajar
rename(party = writein) %>%
select(-candidatevotes)
My_final_data$state_po <- gsub('"', '', My_final_data$state_po)
My_final_data$office <- gsub('"', '', My_final_data$office)
My_final_data$party <- gsub('"', '', My_final_data$party)
My_final_data$full_name <- gsub('"', '', My_final_data$full_name)
My_final_data$state <- gsub ('"' , '' , My_final_data$state)
My_final_data <- My_final_data %>%
mutate(totalvotes = as.numeric(totalvotes))Introduccion 
En esta página web se dará a conocer sobre las elecciones presidenciales en los Estados Unidos desde 1992 hasta 2020. Donde se extraerán los datos de cada elección y se observarán cuales son las preferencias de los votantes a lo largo de los años. Cabe recalcar que se tomará en cuenta el voto popular en véz del voto electoral, donde los resultados y el presidente electo podrían haber variado
Además, se investigará con mayor énfasis los resultados obtenidos de la elección del 2020, la cual estuvo envuelta en polemicas
Para la obtención de los datos, utilizamos la fuente, Harvard Dataverse, y se puede encontrar dentro de este enlance, https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/42MVDX.
Proceso de obtención y transformación de datos
1992: Bill Clinton(D) vs George W. Bush(R)
Bill Clinton
George W. Bush
La elección de 1992 resultó ser una victoria con un márgen amplio para el candidato democrata Bill Clinton derrotando al Geoorge H.W. Bush, que además resultó ser una victoria muy importante para el partido democrata, ya que desde las elecciones de 1976, no lograban alcanzar el poder presidencial.
Durante su mandato, se logró un superávit presupuestario, hecho que no se lograba en decadas, y gracias a ese superavit logró llevar a cabo una reforma del bienestar, beneficiando así a la sociedad estadounidense.
Además se logró un acuerdo comercial llamado TLCAN entre los 3 grandes paises de america, para fortalecer el desarrollo interno y externo.
1996. Bill Clinton(D) vs Robert Dole(R)
Bill Clinton
Robert Dole
En 1996, Bill Clinton, del Partido Demócrata, logró la reelección tras enfrentarse al candidato republicano Robert Dole. Este resultado reivindicó el alto índice de apropación del gobierno de Clinton, otorgándole un mayor margen de victoria frente al candidato republicano
Su mandato fue recordado por el escandalo Lewinsky, donde fue acusado de acoso sexual y se llevó a cabo una moción de censura.
2000 George W. Bush(R) vs Al Gore(D)
Al Gore
George W. Bush
En esta contienda, la elección estuvo envuelta en polémicas, como el caso de Florida, donde por solo 500 votos logró obtener todos los votos electorales del estado.
Aquí introducimos la diferencia entre el voto popular y el voto electoral, donde AL gore, obtuvo una mayor cantidad de votos, sin embargo Bush salió victorioso al realizar la suma del voto electoral, el cual define al ganador.
Entre los grandes acontecimientos de su mandato, se encuentra una de las mayores noticias de impacto internacional, como lo fué la caída de las torres gemelas provocado por un ataque teorrista. Ante estos ataques, Bush lideró la iniciativa de iniciar la guerra contra Irak argumentando la necesidad de eliminar armas de destrucción masiva y organizaciones terroristas
2004 George W. Bush(R) vs John Kerry(D)
George W. Bush
John Kerry
La elección presidencial de 2004 marcó la reelección de George W. Bush tras enfrentarse al senador demócrata John Kerry. La contienda estuvo fuertemente influenciada por la “Guerra contra el Terror”, las guerras en Irak y Afganistán, y las tensiones políticas tras los atentados del 11 de septiembre.
Entre los acontecimientos mas resaltantes durante su administración, fue la mala respuesta que se otorgó a los afectados por el huracán Katrina. Además su aprobación decreció aún mas debido a la crisis economica global, la cual provocó una gran recesión
2008 Barack H. Obama(D) VS John MCcain(R)
Barack Obama
John MCcain
La elección presidencial de 2008 marcó un momento histórico en la política estadounidense, con la elección de Barack Obama como el primer presidente afroamericano del país. Enfrentándose al veterano senador republicano John McCain, Obama capturó la atención del país con su mensaje de esperanza, cambio y unidad en un momento de crisis económica.
El partido democrata se habría reformado y su nuevo líder, Barack Obama, mostró un cambio para el partido y para sus votantes.
Uno de los momentos clave durante su mandato, fue el asesinato de Osama Bin Laden, terrorista que condujo los ataques de septiembre 2001
2012 Barack H. Obama(D) VS Mitt Romney(R)
Barack Obama
Mitt Romney
La elección presidencial de 2012 consolidó el segundo mandato de Barack Obama, quien derrotó al exgobernador republicano de Massachusetts, Mitt Romney. Esta elección se desarrolló en un contexto de lenta recuperación económica tras la Gran Recesión, pero con un fuerte respaldo a las políticas de Obama.
2016 Donald J. Trump(R) VS Hillary Clinton(D)
Donald Trump
Hillary Clinton
La elección presidencial de 2016 fue una de las más polémicas y sorpresivas en la historia reciente de Estados Unidos. Donald J. Trump, un empresario y personalidad televisiva sin experiencia política previa, derrotó a Hillary Clinton, ex primera dama y secretaria de Estado. La campaña estuvo marcada por la influencia de las redes sociales.
Aunque Hillary Clinton ganó el voto popular por casi 3 millones de votos, Trump aseguró la victoria al dominar en estados clave como Wisconsin, Michigan y Pensilvania, logrando los votos necesarios en el Colegio Electoral.
El lema de Trump,Make America Great Again enfocado en la recuperación económica, provocó un movimiento nacional a favor y en contra. Aunque el presidente estuvo envuelto en muchas polémicas, logró sacar al país adelante y provocar un crecimiento económico continuo hasta la pandemia
2020 Donald J. Trump(R) VS Joe Biden(D)
Donald Trump
Joe Biden
La elección presidencial de 2020, al igual que la de 2016, estuvo profundamente influenciada por el papel de las redes sociales, especialmente en un contexto donde la pandemia de COVID-19 sacudió al mundo. Este proceso electoral estuvo marcado por la crisis sanitaria, que transformó las campañas políticas con un aumento histórico del voto por correo y la limitación de eventos presenciales. Sin embargo, Donald Trump cuestionó repetidamente la legitimidad del voto por correo, generando una profunda división entre la población estadounidense.
Durante su mandato, la popularidad de Trump fue disminuyendo gradualmente, a pesar de contar con indicadores económicos positivos, en gran parte debido a la influencia de los medios de comunicación. Uno de los momentos clave fue la muerte de George Floyd, que desató una ola de protestas por justicia racial y contra la brutalidad policial, movimientos que se vieron amplificados por las redes sociales. En contraste, Trump apoyó incondicionalmente a las fuerzas policiales, lo que intensificó las tensiones sociales y afectó su imagen pública en los meses previos a la elección.
Ante los escándalos y las presiones económicas derivadas de la pandemia, Trump llegó desfavorecido al día de la elección. Estos eventos, junto con la movilización del voto demócrata, le dieron la victoria a Joe Biden, como se observa en el [plot 8]. Biden superó a Trump por aproximadamente 7 millones de votos en el voto popular, lo que representa un margen de 4.54 puntos porcentuales. Además de la victoria demócrata, la participación fue histórica, con más de 155 millones de votantes, la cifra más alta en la historia electoral de Estados Unidos.
El mapa electoral gracias al paquete usmap, muestra cómo los demócratas lograron victorias en la mayoría de los estados del noreste, la costa oeste y partes del medio oeste, incluyendo estados clave como Pensilvania, Michigan y Wisconsin. Por otro lado, los republicanos consolidaron su dominio en el sur, el medio oeste y las regiones montañosas del oeste.
Los llamados “campos de batalla” o “swing states”, como Arizona, Georgia, Pensilvania, Michigan y Wisconsin, jugaron un papel crucial en los resultados. Joe Biden logró recuperar varios de estos estados que Trump había ganado en 2016, inclinando la balanza a favor del Partido Demócrata.
En cuanto al desempeño en cada estado con el [plot_10], se observa que los demócratas tuvieron una ventaja clara en estados densamente poblados como California, Nueva York e Illinois, reflejado en las barras azules más largas, gracias a la gran cantidad de habitantes votantes. Por su parte, los republicanos encontraron en Texas y Florida sus principales bastones, estados que les otorgan una cantidad significativa de votos electorales.
En estados como Arizona, Georgia y Pensilvania, las barras de ambos partidos son cercanas en longitud, lo que refleja elecciones altamente competitivas. Sin embargo, al final, estos estados fueron favorecidos para los demócratas, consolidando su victoria en el Colegio Electoral.
Información sobre la sesión
- Paquetes utilizados
tidyversestringrtidyrsfusmapscalesreadrpngggthemesggplot2dplyr
Créditos
Perez Vazquez, Pedro Jose(https://perezp44.github.io)