sentimientos

Analisis de emociones

1. Cargar las librerias

library(readtext)
library(syuzhet)
library(RColorBrewer)
library(wordcloud)
library(tm)

## Loading required package: NLP

2. Limpiar texto

texto_df <- readtext("/Users/sebastianfajardo/Desktop/himno.rtf")
texto <- texto_df$text 

texto_limpio <- tolower(texto) # Convertir a minúsculas
texto_limpio <- gsub("[[:punct:]]", " ", texto_limpio) # Eliminar puntuación
texto_limpio <- gsub("[[:digit:]]", "", texto_limpio) # Eliminar números
texto_limpio <- gsub("\\s+", " ", texto_limpio) # Eliminar espacios extra

texto_palabras <- unlist(strsplit(texto_limpio, "\\s+"))

emociones_df <- get_nrc_sentiment(texto_palabras, language = "spanish")

3. Generar graficas y wordcloud

barplot(colSums(prop.table(emociones_df[, 1:8])), col = brewer.pal(8, "Dark2"),
        main = "Distribución de Emociones", ylab = "Proporción de Emociones")

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

plot(sentimientos, type = "l", main = "Sentimientos Generales", xlab = "Índice", ylab = "Sentimiento")

wordcloud(words = texto_palabras, min.freq = 1, random.order = FALSE, 
          colors = brewer.pal(8, "Dark2"))

## Warning in tm_map.SimpleCorpus(corpus, tm::removePunctuation): transformation
## drops documents

## Warning in tm_map.SimpleCorpus(corpus, function(x) tm::removeWords(x,
## tm::stopwords())): transformation drops documents

conclusión

Sentimiento se refiere tanto a un estado de ánimo como también a una emoción conceptualizada que determina el estado de ánimo.