Analisis de sentimientos

# 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
library(readtext)
library(syuzhet)
library(RColorBrewer)
library(wordcloud)
library(tm)

## Cargando paquete requerido: NLP

library(shiny)

# Importar la base de datos
texto <- readtext("C:\\Users\\sebas\\OneDrive\\Escritorio\\Inteligencia de Negocios\\Modulo 2\\13 08 2024\\himnomexicano.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)

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

## Conclusión 
# Este codigo funciona para analizar los sentimientos de los textos, y determinar que sentimientos quiere transmitir la persona que lo escribe, o en que sentimientos se esta comunicando.

rsconnect::setAccountInfo(name='i4aj14-pablo0sebasti0n-mart0nez0alvarez',
              token='DE78204E1AF95FB4EFC1E55CF37FB97A',
              secret='72oLYppe/mrNuesrW7Qq8CUhpy2cmvVnBpz48L+L')

library(rsconnect)

## 
## Adjuntando el paquete: 'rsconnect'

## The following object is masked from 'package:shiny':
## 
##     serverInfo

library(shiny)