# Instalar paquetes y llamar librerias
library(readtext)
library(syuzhet)
library(RColorBrewer)
library(wordcloud)
library(tm)
## Loading required package: NLP
texto <- readtext("/Users/sofiaberron/Downloads/himno.txt")
texto_palabras <- get_tokens(texto)
emociones_df <- get_nrc_sentiment(texto_palabras, language = "spanish")
barplot(colSums(prop.table(emociones_df[, 1:8])))
sentimientos <- (emociones_df$negative*-1) + emociones_df$positive
par(mar = c(2, 2, 2, 2))
simple_plot(sentimientos)
# wordcloud(words=texto_palabras, min.freq = 1)
#Conclusión: Le aplicamos un analisis de sentimientos al texto del himno nacional, las ocho emociones que evaluamos nos permiten ver como se siente la mayoría de la gente con respecto al himno nacional y las tendencias emocionales que hay detrás de este.