1 Introducción
El presente documento tiene por objetivo brindar un resumen rápido y dinámico de los planes de gobierno de los dos partidos políticos inmmersos en la 2da vuelta electoral para la Presidencia en Perú 2021.
Para lograr el objetivo mencionado, se elaborarán nubes de palabras con el contenido de los planes de gobierno de ambos partidos políticos.
Las nubes de palabras permiten realizar una representación visual de las palabras que conforman un texto, donde las palabras que aparecen con más frecuencia vienen representadas con textos de mayor tamaño.
Empezaremos por el plan de gobierno del partido político “Fuerza Popular”.
2 Importar texto
Se importa el PDF del plan de gobierno directamente de la publicación en el diario oficial “El Peruano”
3 Reemplazar texto
Es normal que en la redacción de los documentos se usen múltiples sinónimos que, como la definición de sinónimos indica, son palabras con el mismo contenido semántico. Por ello, conviene efectuar un reemplazo de palabras.
text <- gsub("público", "pública", text)
text <- gsub("públicas", "pública", text)
text <- gsub("políticas", "política", text)
text <- gsub("sistemas", "sistema", text)
text <- gsub("ciudadana", "ciudadano", text)
text <- gsub("ciudadanos", "ciudadano", text)
text <- gsub("gobiernos", "gobierno", text)
text <- gsub("ambientales", "ambiental", text)
text <- gsub("ambiente", "ambiental", text)
text <- gsub("cultural", "cultura", text)
text <- gsub("servicios", "servicio", text)
text <- gsub("sociales", "social", text)
text <- gsub("mejora", "mejor", text)
text <- gsub("ciudades", "ciudad", text)
text <- gsub("peruanas", "peruano", text)
text <- gsub("peruana", "peruano", text)
text <- gsub("peruanos", "peruano", text)
text <- gsub("todas", "todos", text)4 Elaboración del corpus
5 Eliminación de stopwords
Los stopwords son las palabras que por sí solas no guardan un significado. Son comunmente los artículos, pronombres, preposiciones y adverbios. No significa que carezcan de importancia, pero sí es necesario eliminarlas del corpus.
6 Matriz de términos
7 Revisión de frecuencias
Este paso no es necesario, pero es útil para identificar si la frecuencia de términos es la esperada.
library(tidyverse)
df[1:20,] %>%
ggplot() +
aes(freq, y=reorder(word,freq)) +
geom_bar(stat="identity", color="white", fill="midnightblue") +
geom_text(aes(label=freq, hjust=1.5), color="white") +
labs(
x = NULL,
y = "Palabras más frecuentes"
)
8 Nube de palabras
Una vez elaborada la nube de palabras, si el usuario posiciona el puntero del mouse encima de alguna de las palabras podrá observar que debajo de ella aparecerá un texto indicando la frecuencia de la palabra señalada con el puntero.
8.1 Fuerza Popular
## Nube de 7653 palabras.library(wordcloud2)
wordcloud2(df, size=0.75, backgroundColor="black",
color='random-light', shuffle=F)Cabe agregar que, las representaciones de los planes de gobierno no son representaciones que permitan, en sí mismas, concluir que plan de gobierno es mejor que otro. Las nubes de palabras se han elaborado con el objetivo de ayudar a una representación resumida del contenido del plan de gobierno que cada partido político propone.
9 Función corpus
Es conveniente elaborar una función que facilite la tarea de elaboración de nubes de palabras, pues como se verá, en el caso de “Perú Libre”, este partido político tiene un plan de gobierno presentado de forma oficial ante el JNE y tiene un nuevo plan presentado en fecha 16/May/2021.
library(pdftools)
library(tm)
library(wordcloud2)
makeCorpus <- function(url){
text <- pdf_text(url)
text <- iconv(text, to="latin1")
text <- gsub("público", "pública", text)
text <- gsub("públicas", "pública", text)
text <- gsub("políticas", "política", text)
text <- gsub("sistemas", "sistema", text)
text <- gsub("ciudadana", "ciudadano", text)
text <- gsub("ciudadanos", "ciudadano", text)
text <- gsub("gobiernos", "gobierno", text)
text <- gsub("ambientales", "ambiental", text)
text <- gsub("ambiente", "ambiental", text)
text <- gsub("cultural", "cultura", text)
text <- gsub("servicios", "servicio", text)
text <- gsub("sociales", "social", text)
text <- gsub("mejora", "mejor", text)
text <- gsub("ciudades", "ciudad", text)
text <- gsub("peruanas", "peruano", text)
text <- gsub("peruana", "peruano", text)
text <- gsub("peruanos", "peruano", text)
text <- gsub("todas", "todos", text)
corpus <- Corpus(VectorSource(text))
d <- corpus
d <- tm_map(d, tolower)
d <- tm_map(d, stripWhitespace)
d <- tm_map(d, removePunctuation)
d <- tm_map(d, removeNumbers)
lista_remover <- c('maría','ello','así','cada','hace','hacia','vez',
'través','sino','dentro','asimismo','mediante',
'además')
d <- tm_map(d, removeWords, c(stopwords("spanish"), lista_remover))
m <- as.matrix(TermDocumentMatrix(d))
v <- sort(rowSums(m), decreasing=TRUE)
df <- data.frame(word=names(v), freq=v)
return(df)
} 10 Aplicación de la función makeCorpus
Aplicaremos la función creada en el paso anterior para obtener la nube de palabras de los 2 planes de gobierno del partido político “Perú Libre”.
