Análisis de los discursos presidenciales de Ollanta Humala
Grupo 6
09-08-22
1 Introducción
Cada 28 de julio, los peruanos celebramos el aniversario de nuestra patria y esperamos el discruso de nuestro líder de gobierno que según el mensaje que trasmite permite conocer más su perspectiva, cualidades y capacidad de gobierno.En ese sentido, se analizará los discursos del 28 de julio del ex-presidente Ollanta Humala al inicio de su gobierno, 2011, como a la mitad de su periodo, 2014.
Ollanta Moisés Humala Tasso (Lima, 27 de junio de 1962) es un exmilitar y político peruano. Fue presidente de la República del Perú, de 2011 a 2016, tras ser candidato por la alianza electoral Gana Perú. En las elecciones generales del 2011, realizadas el 10 de abril. Pasó al balotaje, realizado el 5 de junio, al no haber superado el 50 %, lo mismo que Keiko Fujimori. Y venció al conseguir el 51,45 % de los votos válidos.
Humala ingresó en la palestra política cuando protagonizó junto a su hermano Antauro Humala el levantamiento de Locumba (Tacna), manifestándose en contra del gobierno de Alberto Fujimori. Más tarde fundó, junto a su esposa, el Partido Nacionalista Peruano.
El 13 de julio de 2017, fue recluido de forma preventiva en el penal Barbadillo luego de haberse entregado voluntariamente, acusado presuntamente de lavado de activos en detrimento del Estado y de asociación ilícita para delinquir en el caso Lava Jato. El 26 de abril de 2018, por resolución del Tribunal Constitucional del Perú inició su proceso de libertad
Fuente:Wikipedia
Presidente Ollanta Humala Tasso
2 Entendimiento de los datos
Los discursos de 28 de julio de ambos años se extrajo de la página web del Congreso. Para el mensaje del 2011 lo podemos encontrar en el siguiente link: Ollanta Humala 2011 y para el discurso del 2014 se visualiza en Ollanta Humala 2014 Para el procesamiento de los datos se usó el software R y principalmente los paquetes tidyverse, tidytext y wordcloud2.
3 Pre-procesamiento de los datos
Los datos fueron pre-procesados de tal manera que se retiraron los signos de puntuación, tildes, los links, espacios en blanco, los números, se cambiaron las palabras en minúsculas, se eliminaron los stopwords o palabras vacías usando un diccionario denominado sentimientos. El primer discurso se analizó de un total de 10 páginas, mientras el segundo, analizamos las palabras de 21 páginas.
4 Resultados de ánalisis
4.1 Discurso presidencial del presidente Ollanta en el 2011
embed_url("https://www.youtube.com/watch?v=gE6pNFm8HTk")%>%
use_align("center")%>%
use_start_time("18m24")4.2 Gráfico de sentimientos- 2011
El gráfico evidencia que el discurso del ex-presidente Ollanta Humala en el 2011tenía una inclinación hacia sentimientos de positivismo, y en segundo lugar, con una reducción cerca de la tercera parte de palabras de confianza y a la vez de negativismo en los temas que abordó y en menor medida sus palabras denotan asombro mostrando planificación y organzación al dirigir el país.
G <- sentimiento_2011 %>%
dplyr::count(sentimiento) %>%
ggplot() + aes(x=fct_reorder(sentimiento,-n),
y=n,) +
geom_col(show.legend = F,fill=rainbow(10)) +
labs(title ="Análisis de sentimientos del discurso presidencial de ollanta del año 2011",
x = "Sentimientos",
y= "Frecuencia") + theme_bw() +
theme(axis.text.x = element_text(angle = 25 , vjust = 1, hjust=1, size = 12)) +
transition_states(n) +
enter_grow() +
shadow_mark()
animate(G,duration=18,fps=10)
4.3 Gráfico de palabras en relación al sentimiento - 2011
En este discurso Humala habla acerca de la política, corrupción, democracia, pobreza, compromiso e inversión.permitiendonos inferir que temas abordó al inicio de su periodo como mandatario.
ggplot(n_palabras2011) +
aes(x=fct_reorder(Token,-n),
y=n,
fill=sentimiento) +
geom_col(show.legend = FALSE) +
facet_wrap(~sentimiento, scales= "free") +
labs(title= "Gráfico de palabras por sentimiento",
x= "Palabras", y="Frecuencia") + theme_bw() +
theme(axis.text.x = element_text(angle = 35 , vjust = 1, hjust=1))
4.4 Gráfico con wordcloud - 2011
Podemos ver que el presidente busca trabajar en favor del país con mayor realce en el ámbito social, ya que es la palabra con mayor frecuencia en su discurso .Asimismo buscaba fortalecer una democracia, trabajar para el desarrollo nacional en el aspecto social, y en segundo lugar, prima el crecimiento de la economía.
wordcloud2(ollanta_freq2011, size = 0.4, color = "random-light",
minRotation = -0.6, maxRotation = -0.6,
rotateRatio = 1)4.5 Discurso presidencial del presidente Ollanta en el 2014
embed_url("https://www.youtube.com/watch?v=H0jcQyj1Ofg")%>%
use_align("center")%>%
use_start_time("3m39")4.6 Gráfico de sentimientos - 2014
En este gráfico podemos evidenciar que el mensaje del presidente a diferencia,del discurso al iniciar su gobierno fue un aumentó del nivel de positivismo en un 100% indicando, según su parecer, que estaba haciendo las cosas bien para que proyecte tal aumento de ese sentimiento.En segundo lugar, con más del 50% hay denotaciónde confianza y negativiso en sus palabras.
G2 <- sentimiento_2014 %>% dplyr::count(sentimiento) %>% ggplot() +
aes(x=fct_reorder(sentimiento,-n), y=n,) +
geom_col(show.legend =F,fill=terrain.colors(10)) +
labs(title ="Análisis de sentimientos del discurso presidencial de ollanta del año 2014",
x = "Sentimientos", y= "Frecuencia") + theme_bw() +
theme(axis.text.x = element_text(angle = 25 , vjust = 1, hjust=1, size = 12)) +
transition_states(n) +
enter_fade() +
shadow_mark()
animate(G2,duration=18,fps=10)
4.7 Gráfico de palabras en relación al sentimiento - 2014
Las palabras con mayor frecuencia siguen siendo los mismos que en el discurso del 2011 dandonos una idea que seguía firme con los mismos temas en ese momento.
ggplot(n_palabras2014) + aes(x=fct_reorder(Token,n),
y=n,
fill=sentimiento) + geom_col(show.legend = FALSE) +
facet_wrap( ~sentimiento, scales= "free") +
labs(title= "Gráfico de palabras por sentimiento",
x= "Palabras", y="Frecuencia") + theme_bw() +
theme(axis.text.x = element_text(angle = 35 , vjust = 1, hjust=1))
4.8 Gráfico con wordcloud - 2014
En este presente gráfico podemos observar que el sector salud era importante para el presidente, además, tuvo un enfoque en el sector educación, buscando una adecuada para el buen desarrollo de los niños.
set.seed(123)
wordcloud2(ollanta_freq2014, size = 0.4,
color = 'random-light',backgroundColor = 'chocolate',shape = 'diamond')5 Comparaciones entre ambos discursos
5.1 Comparación entre los sentimientos reflejados del presidente
En este presente grafico vemos la comparación presentada sobre las palabras de mayor frecuencias empleadas por el expresidente Ollanta Humala en ambos discursos. Las palabras empleadas, son en su mayoría repetidas en el 2011 y 2014 , con muy pocas diferencias en las frecuencias y algunas palabras previamente no tomadas en cuenta.
o <- sentimiento_2011 %>%
mutate(anio=2011)
h <- sentimiento_2014 %>%
mutate(anio=2014)
oh <- o %>%
full_join(h)
comparacion = oh %>%
count(anio,sentimiento)
Ohumala <- comparacion %>% pivot_wider(names_from = anio,
values_from = n)
pyramid.plot(Ohumala$`2011`, Ohumala$`2014`,
labels = Ohumala$sentimiento, gap = 150,
top.labels = c("Mensaje 2011", "Sentimientos", "Mensaje 2014"),
main = "Comparación de los sentimientos en los discursos analizados de Ollanta")
5.2 Comparación entre ambos discursos
Podemos apreciar que las palabras más resaltantes son social y salud, para el año 2011 y 2014 respectivamente. Evidenciando el cambio y evolución de la visión que tuvo a lo largo de su mandato.
ollanta2011 %>% rename(token1=Token) -> o1
ollanta2014 %>% rename(token2=Token) -> o2
c(o1,o2) -> oh
VCorpus(VectorSource(oh)) -> oht
OHT <- TermDocumentMatrix(oht)
as.matrix(OHT) -> ollantahumala
colnames(ollantahumala) <- c("discurso2011","discurso2014")
windows()
comparison.cloud(ollantahumala, max.words = 100, colors = c("darkorchid" , "gold1"), random.order = T, title.size = 3, title.colors = c("darkmagenta","gold3"), rot.per=.45, scale=c(4,.2), title.bg.colors = "bisque")
5.3 Comparación de las palabras dichas por el presidente Ollanta
Dentro de este gráfico podemos apreciar que el presidente tiene en mente un compromiso, asegura un esfuerzo para el beneficio de nuestro país y, busca ponerle fin a la democracia.
discursooh <- ollanta_freq2011 %>% full_join(ollanta_freq2014, by= "Token") %>% na.omit()
oh <- discursooh %>%
mutate(prop_2011 = n.x / sum(n.x)) %>%
mutate(prop_2014 = n.y / sum(n.y))
library(scales)
oh %>%
ggplot(aes(x = prop_2011, y = prop_2014,
color = prop_2011 - prop_2014)) +
geom_abline(color = "red", lty = 2) +
geom_jitter(alpha = 0.1, size = 2.5,
width = 0.3, height = 0.3) +
geom_text(aes(label = Token), check_overlap = T,
vjust = 1.5) +
scale_x_log10(labels = percent_format()) +
scale_y_log10(labels = percent_format()) +
scale_color_gradient(limits = c(0, 0.001),low = "hotpink4",high = "green") +
coord_equal()+
theme_bw()+
labs(x = "% de frencuencia en el discurso del 2011",
y = "% de frencuencia en el discurso del 2014",
title = "Comparando los discursos del presidente Ollanta Humala") +
theme(legend.position = "none",
plot.title = element_text(size = 12, hjust = 0.4,color = "brown2", face = "italic"),
axis.title.y = element_text(hjust = 0.5, size = 10 , color = "deeppink"),
axis.title.x = element_text(size = 10, color = "deeppink"),
axis.text.x = element_text(size = 6.5, color = "darkslateblue"),
axis.text.y = element_text(size = 6.5, color = "darkslateblue"),
strip.text = element_text(size = 9, color = "yellow2", face = "bold"))
6 Conclusiones
El procesamiento y análisis de ambos discursos refleja que el ex-mandatario mantenía sentimientos de optimismo siendo mayor a la mitad de su gobierno, al parecer, porque iba trabajando con mayor enfoque en el ámbito social como Pensión 65, QaliWarma, Cuna Más y la ampliación del programa de subsidios para la población en extrema pobreza, Juntos, que hoy atiende a medio millón de personas.Por otro lado, resaltó el ámbito de la salud pues en su gobierno se hizo una histórica inversión en salud de S/.5, 500 millones.
7 Frase de Ollanta Humala a lo largo de su gobierno
“Yo soy como el que conduce una combi con 30 millones de peruanos y peruanas”
Ollanta Humala
Fuente: Canal N
8 Bibliografía
Para elaborar este RMarkdown algunos de los paquetes usados son tidyverse (Wickham, 2021b),dplyr (Wickham et al., 2022), gganimate (Pedersen & Robinson, 2020), ggplot2 (Robinson & Silge, 2022), tidytext (Silge, 2022), tm (Feinerer & Hornik, 2020), wordcloud (Fellows, 2018), wordcloud2 (Lang & Chien, 2018), pdftools (Ooms, 2022), patchwork (Pedersen, 2020), widyr (Robinson, 2021), magrittr (Bache, 2022), stringr (Wickham, 2019) , forcats (Wickham, 2021a), readxl (Wickham & Bryan, 2022), plotrix (Lemon, 2021), scales (Wickham & Seidel, 2022), ggtextures (Wilke, 2020), vembedr (Lyttle, 2021)