Analisis de Sentimiento - Ejemplo: Himno Nacional México

El análisis de sentimientos es una herramienta dentro del “Machine Learning” para medir respuestas emocionales acerca de un texto.

Las 8 emociones son: * Ira * Anticipación * Asco * Miedo * Alegría * Tristeza * Sorpresa * Confianza

Las 2 tendencias de las emociones son: Positiva o Negativa

Instalar paquetes y llamar librerias

#install.packages("readtext")
library(readtext)

## Warning: package 'readtext' was built under R version 4.3.3

#install.packages("syuzhet")
library(syuzhet)

## Warning: package 'syuzhet' was built under R version 4.3.3

#install.packages("RColorBrewer")
library(RColorBrewer)
#install.packages("wordcloud")
library(wordcloud)

## Warning: package 'wordcloud' was built under R version 4.3.3

#install.packages("tm")
library(tm)

## Warning: package 'tm' was built under R version 4.3.3

## Loading required package: NLP

Importar la base de datos

#file.choose()
texto <- readtext("C:\\Users\\HP\\OneDrive - FEMSA Comercio\\Escritorio\\Inteligencia de Negocios\\7mo Semestre\\M2\\BDD\\himno.txt")
texto_palabras <- get_tokens(texto) # el texto lo separa en palabras
emociones_df <- get_nrc_sentiment(texto_palabras, language = "spanish") #nrc es como un diccionario con palabras y sus emociones
barplot(colSums(prop.table(emociones_df[, 1:8])))

sentimientos <- (emociones_df$negative*-1) + emociones_df$positive
simple_plot(sentimientos)

# wordcloud(words=texto_palabras, min.freq = 1)

Conclusión

Este código se utiliza para entender las emociones que se pueden obtener de un texto, en este caso se utilizo para el himno nacional, donde se pudo obtener un insight de que transmite lo que dice.