Mensaje a la Nación 2024

“Análisis de Sentimiento por Página del Mensaje Presidencial Peruano: Evolución Emocional del Discurso”

Este proyecto utiliza técnicas de análisis de sentimiento en R para cuantificar el tono emocional (positivo/negativo/neutral) del mensaje presidencial peruano, página por página. Mediante el paquete syuzhet, procesamos el texto completo del discurso para identificar patrones emocionales clave, como picos de optimismo (ej: anuncios de logros) o vallas de crítica (ej: desafíos nacionales). El gráfico resultante revela la estructura narrativa del discurso, ideal para comunicólogos, politólogos y equipos de inteligencia de datos que buscan entender la estrategia comunicacional detrás de un mensaje de Estado.

Cargar las librerias necesarias Recordar que si no corre es necesario instalar

library(pdftools) #Extraer texto de PDFs.
library(tidyverse) #Limpieza y manipulación de datos (todo-en-uno).
library(syuzhet) #Análisis de sentimiento (polaridad emocional).

Cargar el PDF

texto_por_pagina <- pdf_text(file.choose())  

Calcular el sentimiento por cada página

sentimiento_paginas <- tibble(
  pagina = 1:length(texto_por_pagina),
  texto = texto_por_pagina
) |>
  mutate(
    sentimiento = map_dbl(texto, ~get_sentiment(.x, language = "spanish"))
  )

head(sentimiento_paginas)

ggplot(sentimiento_paginas, aes(x = pagina, y = sentimiento)) +
  geom_line(color = "steelblue", linewidth = 1) +
  labs(
    title = "Evolución del Sentimiento en el Mensaje Presidencial",
    x = "Página",
    y = "Sentimiento (Positivo/Negativo)"
  ) +
  theme_minimal()