Bibliografía

La novela “Las intermitencias de la muerte”, escrita por el renombrado autor portugués José Saramago, fue publicada por Alfaguara en 2005. Con su estilo narrativo distintivo y su capacidad para abordar cuestiones filosóficas y existenciales, Saramago presenta una trama fascinante que gira en torno a la suspensión inesperada de la muerte en un país ficticio. La obra ha sido elogiada por su aguda sátira social y su exploración única de las implicaciones de la inmortalidad. A lo largo de sus páginas, Saramago teje una narrativa rica en ironía y reflexión, ganando reconocimiento internacional y consolidando su posición como uno de los escritores más influyentes de la literatura contemporánea. Este trabajo ha sido objeto de numerosos estudios críticos y análisis académicos, destacando su relevancia y profundidad literaria.

Reseña

embed_url("https://www.youtube.com/watch?v=FB0om22neeY") %>% use_align("center")

Análisis de frecuencia

Libro <- pdf_text("las-intermitencias-de-la-muerte-saramago (1).pdf")

Libro01 <- tibble(Libro) %>% # Convertimos el texto en un tibble
  unnest_tokens(Token, Libro) %>%
  mutate(Token = removeNumbers(Token)) %>% filter(Token != " ") # Tokenizamos

# Tenemos Stopwords -> Palabras vacias ya filtradas

Stopwords_1 <- read_xlsx("CustomStopWords.xlsx")
names(Stopwords_1) <- c("Token", "Fuente") # Renombramos las columnas "name"

Stopwords_2 <- tibble(Token= c(""),Fuente="Mis StopWords")

Stopwords <- rbind(Stopwords_1, Stopwords_2) # rbind concatena filas
Stopwords <- Stopwords[!duplicated(Stopwords$Token),]

# Finalmente

Libro_Final <- Libro01 %>% anti_join(Stopwords)

Libro_Final <- Libro_Final %>%
  count(Token, sort = TRUE) # sort ordena de forma descendente

Grafc1 <- Libro_Final %>% head(10) %>%
  ggplot() + aes(x=fct_reorder(Token, n), y=n, fill = Token) + # fct reordenado
# por frecuencia (forcats)
  geom_col() + # Siempre geom_col
  labs(title = "Las Itermitencias de la Muerte",
       x = NULL,
       y = "Frecuencia") +
  theme_bw() +
  theme(legend.position = "none") + # Sin leyenda
  coord_flip() + # Barras de lado
  transition_states(fct_reorder(Token, n)) +
  enter_fade() +
  shadow_mark()
Grafc1

Nube de palabras

set.seed(123) # Asignamos una semilla (codigo de repeticion aleatorio)
wordcloud(words= Libro_Final$Token, # Utilizamos el mismo item de frecuencia
          freq = Libro_Final$n,
          max.words = 100, # Maximo de palabras
          random.order = FALSE, # Orden segun frecuencia activo
          min.freq = 1, # Frecuencia minima requerida para aparecer
          colors=brewer.pal(5,"Dark2")) # Paleta

Analizando sentmientos del libro

En el análisis de sentimientos de “Las Intermitencias de la Muerte”, se destaca que la palabra “muerte” está fuertemente asociada con sentimientos negativos, sugiriendo una conexión significativa con aspectos desfavorables en la narrativa. Sorprendentemente, la palabra “señor” se repite en contextos tanto de confianza como de sentimientos positivos, indicando una dualidad en su interpretación. Este hallazgo sugiere que, en el contexto específico de la obra, la referencia al “señor” está vinculada tanto a situaciones que generan confianza como a aspectos positivos de la trama.

## # A tibble: 3 × 3
##   Palabra Repeticiones sentimiento
##   <chr>          <int> <chr>      
## 1 muerte           414 negativo   
## 2 señor            115 confianza  
## 3 señor            115 positivo
# 3. Contando y graficando los sentimientos en el libro ----

Libro_Sentimientos %>% 
  dplyr::count(sentimiento) %>% 
  ggplot() + aes(x=fct_reorder(sentimiento,n),
                 y=n,
                 fill=sentimiento) + 
  geom_col(show.legend = F) + coord_flip() +
  labs(title ="Análisis de sentimientos del Libro",
       subtitle = "Las Itermitencias de la Muerte",
       caption = "Fuente: Saramago",
       x = "Sentimientos",
       y= "Frecuencia") +
  theme_bw() +
  gghighlight::gghighlight(sentimiento %in% c("positivo", "negativo", "confianza"))