Himno Nacional

Instalar paquetes y llamar librerías

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

Cargar texto

texto_cadena <- scan(file = "/Users/valeriagrajales/Downloads/Himno_Nacional_Mexicano.txt", fileEncoding = "UTF-8", what = character(), sep = "\n", allowEscapes = T)

Tokenizar texto (Dividir un texto en palabras)

texto_palabras <- get_tokens(texto_cadena)

Explorar texto

head(texto_palabras)

## [1] "himno"     "nacional"  "mexicano"  "coro"      "mexicanos" "al"

length(texto_palabras)

## [1] 537

oraciones_vector <- get_sentences(texto_cadena)
length(oraciones_vector)

## [1] 115

Realizar Análisis de Sentimientos

sentimientos_df <- get_nrc_sentiment(texto_palabras, lang="spanish")
# Idiomas disponibles: english french, german, italian, portuguese, 
# spanish, etc.
summary(sentimientos_df)

##      anger          anticipation        disgust             fear       
##  Min.   :0.00000   Min.   :0.00000   Min.   :0.00000   Min.   :0.0000  
##  1st Qu.:0.00000   1st Qu.:0.00000   1st Qu.:0.00000   1st Qu.:0.0000  
##  Median :0.00000   Median :0.00000   Median :0.00000   Median :0.0000  
##  Mean   :0.05773   Mean   :0.04283   Mean   :0.02048   Mean   :0.0689  
##  3rd Qu.:0.00000   3rd Qu.:0.00000   3rd Qu.:0.00000   3rd Qu.:0.0000  
##  Max.   :3.00000   Max.   :2.00000   Max.   :2.00000   Max.   :2.0000  
##       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.04842   Mean   :0.04283   Mean   :0.02421   Mean   :0.04097  
##  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.07635   Mean   :0.0987  
##  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            1       0    0   1       1        0     1        0        1
## 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   1       0        0     1        0        2
## 5     0            0       0    0   0       0        0     0        0        0
## 6     0            0       0    0   0       0        0     0        0        0

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"
)

Profundizar el análisis de emociones

palabras_confianza <- texto_palabras[sentimientos_df$trust > 0]
palabras_confianza_orden <- sort(table(unlist(palabras_confianza)), decreasing = TRUE)
head(palabras_confianza_orden, n = 10)

## 
##   gloria    honor      paz victoria   cantar     coro     dios    feliz 
##        4        2        2        2        1        1        1        1 
##    himno libertad 
##        1        1

Graficar resultados de sentimientos

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