Actividad 4.4: Análisis de Sentimientos del Himno Nacional Mexicano

#file.choose()

1. Cargar Texto

himno <- read.delim("/Users/andreasanchezgomez/Downloads/himno_nacional.txt")
himno <- as.character(himno)
# texto_cadena <- scan("C:\\Users\\HUAWEI\\Documents\\himno_nacional.txt")

2. Instalar paquetes y Llamar Librerias

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

3. Tokenizar texto (dividir un texto en palabras)

texto_palabras <- get_tokens(himno)
class(himno)

## [1] "character"

4. Explorar texto

head(texto_palabras)

## [1] "c"        "el"       "acero"    "aprestad" "y"        "el"

length(texto_palabras)

## [1] 502

oraciones_vector <- get_sentences(himno)
length(oraciones_vector)

## [1] 10

5. Realizar análisis de sentimientos

sentimientos_df <- get_nrc_sentiment(texto_palabras, lang = "spanish")   

summary(sentimientos_df)

##      anger          anticipation        disgust             fear        
##  Min.   :0.00000   Min.   :0.00000   Min.   :0.00000   Min.   :0.00000  
##  1st Qu.:0.00000   1st Qu.:0.00000   1st Qu.:0.00000   1st Qu.:0.00000  
##  Median :0.00000   Median :0.00000   Median :0.00000   Median :0.00000  
##  Mean   :0.05578   Mean   :0.04183   Mean   :0.02191   Mean   :0.06773  
##  3rd Qu.:0.00000   3rd Qu.:0.00000   3rd Qu.:0.00000   3rd Qu.:0.00000  
##  Max.   :3.00000   Max.   :2.00000   Max.   :2.00000   Max.   :2.00000  
##       joy             sadness           surprise           trust        
##  Min.   :0.00000   Min.   :0.00000   Min.   :0.00000   Min.   :0.00000  
##  1st Qu.:0.00000   1st Qu.:0.00000   1st Qu.:0.00000   1st Qu.:0.00000  
##  Median :0.00000   Median :0.00000   Median :0.00000   Median :0.00000  
##  Mean   :0.04781   Mean   :0.03785   Mean   :0.02191   Mean   :0.03984  
##  3rd Qu.:0.00000   3rd Qu.:0.00000   3rd Qu.:0.00000   3rd Qu.:0.00000  
##  Max.   :2.00000   Max.   :2.00000   Max.   :2.00000   Max.   :2.00000  
##     negative          positive     
##  Min.   :0.00000   Min.   :0.0000  
##  1st Qu.:0.00000   1st Qu.:0.0000  
##  Median :0.00000   Median :0.0000  
##  Mean   :0.07371   Mean   :0.0996  
##  3rd Qu.:0.00000   3rd Qu.:0.0000  
##  Max.   :3.00000   Max.   :3.0000

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     0            0       0    0   0       0        0     0        0        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

6. 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 = "Análisis de Sentimientos del Himno Nacional Mexicano", 
  xlab = "Emociones"
  
)

7. Profundizar Análisis

# Profundizar Análisis
palabras_miedo <- texto_palabras[sentimientos_df$fear >0]
palabras_miedo_orden <- sort(table(unlist(palabras_miedo)), decreasing = TRUE)
head(palabras_miedo_orden, n=10)

## 
##    guerra    sangre     golpe  guerrero  metralla   destino      dios   enemigo 
##         7         4         2         2         2         1         1         1 
## impotente    muerte 
##         1         1

8. Graficar Resultado de Sentimientos

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