Sentimientos

Analisis de Sentimientos

El analisis de sentimientos es utilizado para extraer de formar automatica informacion sobre la conotacion positiva o negativa del lenguaje de un documento.

El analisis mostrara el resultado en 8 emociones basicas y 2 sentimientos.

Emociones basicas:

1. Alegria
2. Tristeza
3. Ira
4. Sorpresa
5. Asco
6. Miedo
7. Anticipacion
8. Confianza

Sentimientos:

1. Positivo
2. Negativo

1. Instalar librerias

library(RColorBrewer)
library(syuzhet)

2. Cargar texto

texto_cadena <- read.delim("letratriste.txt", header=FALSE)

3. Tokenizar texto

texto_palabras <- get_tokens(texto_cadena)

4. Explorar texto

head(texto_palabras)

## [1] "c"        "que"      "triste"   "fue"      "decirnos" "adiós"

length(texto_palabras)

## [1] 175

5. Realizar analisis de sentimientos

sentimientos_df <- get_nrc_sentiment(texto_palabras, language = "spanish")
head(sentimientos_df)

##   anger anticipation disgust fear joy sadness surprise trust negative positive
## 1     0            0       0    0   0       0        0     0        0        0
## 2     0            0       0    0   0       0        0     0        0        0
## 3     1            0       1    2   0       5        0     0        5        0
## 4     0            0       0    0   0       0        0     0        0        0
## 5     0            0       0    0   0       0        0     0        0        0
## 6     0            0       0    0   0       0        0     0        0        0

summary(sentimientos_df)

##      anger          anticipation    disgust          fear     
##  Min.   :0.00000   Min.   :0     Min.   :0.00   Min.   :0.00  
##  1st Qu.:0.00000   1st Qu.:0     1st Qu.:0.00   1st Qu.:0.00  
##  Median :0.00000   Median :0     Median :0.00   Median :0.00  
##  Mean   :0.02286   Mean   :0     Mean   :0.04   Mean   :0.08  
##  3rd Qu.:0.00000   3rd Qu.:0     3rd Qu.:0.00   3rd Qu.:0.00  
##  Max.   :1.00000   Max.   :0     Max.   :1.00   Max.   :2.00  
##       joy             sadness          surprise     trust      negative     
##  Min.   :0.00000   Min.   :0.0000   Min.   :0   Min.   :0   Min.   :0.0000  
##  1st Qu.:0.00000   1st Qu.:0.0000   1st Qu.:0   1st Qu.:0   1st Qu.:0.0000  
##  Median :0.00000   Median :0.0000   Median :0   Median :0   Median :0.0000  
##  Mean   :0.03429   Mean   :0.2171   Mean   :0   Mean   :0   Mean   :0.2057  
##  3rd Qu.:0.00000   3rd Qu.:0.0000   3rd Qu.:0   3rd Qu.:0   3rd Qu.:0.0000  
##  Max.   :1.00000   Max.   :7.0000   Max.   :0   Max.   :0   Max.   :7.0000  
##     positive      
##  Min.   :0.00000  
##  1st Qu.:0.00000  
##  Median :0.00000  
##  Mean   :0.04571  
##  3rd Qu.:0.00000  
##  Max.   :1.00000

6. Graficar Resultados de las emociones

barplot(
  colSums(prop.table(sentimientos_df[,1:8])),
  space = 0.2,
  horiz = FALSE,
  las = 1,
  cex.names = 0.7,
  col = brewer.pal(n=8, name="Set3"),
  main = "Analisis de sentimientos de la cancion El Triste",
  xlab = "Emociones"
)

7. Realizar analisis de sentimientos

palabras_tristeza <- texto_palabras[sentimientos_df$sadness >0]
palabras_tristeza_orden <- sort(table(unlist(palabras_tristeza)),
decreasing = TRUE)

head(palabras_tristeza_orden)

## 
##  triste   dolor    azul    gris soledad 
##       4       2       1       1       1

8. Graficar resultados de sentimientos

secuencia_sentimientos <- (sentimientos_df$negative*-1)+sentimientos_df$positive

simple_plot(secuencia_sentimientos)