#install.packages("readtext")
library(readtext)
#install.packages("syuzhet")
library(syuzhet)
#install.packages("RColorBrewer")
library(RColorBrewer)
#install.packages("wordcloud")
library(wordcloud)
#install.packages("tm")
library(tm)
## Cargando paquete requerido: NLP
#file.choose()
texto <- readtext("C:\\Carpeta de R\\DBs\\Himno_Nacional.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
simple_plot(sentimientos)
Esta actividad se basó en la creación de tokens o tokenización, que consistió en partir oraciones grandes en partes más pequeñas. De esa forma, se hizo un conteo de la emoción que cada palabra transmite.