4.5 actividad

Analisis de sentimientos

el analisis de senrimientos, o mineria de opinion, es utilizado para extraer de forma automatica informacion sobre la conotacion positiva o negativa del lenguaje de un documento.

El analisis mostrara el resultado con 8 emociones basicas y 2 sentimientos. Emociones basicas:
1. Alegría (Joy)
2. Tristeza (Sadness)
3. Ira (anger)
4. Sorpresa (surprise)
5. Asco (disgust)
6. Miedo (fear)
7. Anticipacion (anticipation)
8. Confianza (trust)
Sentimientos
1. positivo (positive)
2. negativo (negative)

instalar paquetes y llamar librerias

#install.packages("syuzhet")
library(syuzhet)
#install.packages("RColorBrewer")
library(RColorBrewer)

Cargar textos

#file.choose()
texto_cadena <- read.delim( "/Users/enrique/Downloads/Semestre 7- 1 Bloque R/JoseJose.txt", header = FALSE)

texto_palabra <- get_tokens(texto_cadena)

head(texto_palabra)

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

length(texto_palabra)

## [1] 183

Realizar analisis

sentimientos_df <- get_nrc_sentiment(texto_palabra, language ="spanish")

#idiomas disponibles: spanish enislish, french, italian, etc. 

Graficar Resultados

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 trsite",
  xlab= "emociones"
  
)

Profundizar Analisis

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

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

Graficar

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

Analisis de Himno

instalar paquetes y llamar librerias

#install.packages("syuzhet")
library(syuzhet)
#install.packages("RColorBrewer")
library(RColorBrewer)

Cargar textos

#file.choose()
texto_cadenaH <- read.delim( "/Users/enrique/Downloads/Semestre 7- 1 Bloque R/himnomexicano.txt", header = FALSE)

texto_palabraH <- get_tokens(texto_cadenaH)

head(texto_palabraH)

## [1] "c"         "mexicanos" "al"        "grito"     "de"        "guerra"

length(texto_palabraH)

## [1] 497

Realizar analisis

sentimientos_dfH <- get_nrc_sentiment(texto_palabraH, language ="spanish")

#idiomas disponibles: spanish enislish, french, italian, etc. 

Graficar Resultados

barplot(
  colSums(prop.table(sentimientos_dfH[,1:8])),
  space = 0.2,
  horiz = FALSE,
  las= 1,
  cex.names= 0.7,
  col= brewer.pal(n=8, name="Set3"),
  main="Analisis de sentimientos del Himno",
  xlab= "emociones"
  
)

Profundizar Analisis

palabras_miedo <- texto_palabraH[sentimientos_df$fear>0]
palabras_miedo_orden <- sort (table(unlist(palabras_miedo)),
decreasing=TRUE)
head(palabras_miedo_orden, n=10)

## 
##      el      al      de   golpe   hasta   honor intente   juran     lid     los 
##       3       1       1       1       1       1       1       1       1       1

Graficar

secuencia_sentimientosH <- (sentimientos_dfH$negative*-1)+sentimientos_dfH$positive
simple_plot(secuencia_sentimientosH)