knitr::opts_chunk$set(echo = FALSE,
  message = FALSE,
  warning = FALSE)

BREVE BIOGRAFIA DE JULIO VERNE

La vida de Julio Verne es aparentemente una sucesión de decisiones sensatas: estudió derecho siguiendo la tradición familiar, contrajo matrimonio con una viuda rica, logró una posición acomodada y sólo cuando su arrollador éxito se lo permitió se dedicó en exclusiva a la literatura.

Esta acomodación burguesa, sin embargo, no fue fruto espontáneo de un carácter dócil. A los once años, enamorado de una prima suya, se embarcó en un barco que partía a las Indias con la romántica idea de traerle un collar de coral. La aventura fue abortada en el último segundo por su padre, que le propinó una paliza; ello y el posterior desdén de la prima alimentó al parecer la misoginia de Verne y una secreta rebeldía que, incapaz de manifestarse en la sociedad bienpensante, hallaría un cauce de expresión en la desbordada fantasía de su literatura.

BIOGRAFIA DE JULIO VERNE

LIMPIEZA DE LECTURA

str_count(lectura,"Julio Verne")
## [1] 1
str_count(lectura,"FIN")
## [1] 1
str_count(lectura,"Reservados")
## [1] 1
str_count(lectura,"todos los derechos")
## [1] 1
str_count(lectura,"Permitido el uso sin fines comerciales")
## [1] 1
lectura <- str_remove_all(lectura,"Julio Verne")
lectura <- str_remove_all(lectura,"FIN")
lectura <- str_remove_all(lectura,"Rerservados")
lectura <- str_remove_all(lectura,"todos los derechos")
lectura <- str_remove_all(lectura,"Permitido el uso sin fines comerciales")

str_count(lectura, "\n[:blank:]+[:digit:]+\n")
## [1] 0
str_count(lectura, "[:digit:]")
## [1] 404
lectura <- str_remove_all(lectura, "[:digit:]")

write_lines(lectura, "VIAJE ALCENTRODELATIERRA.txt")
lectura <- scan("VIAJE ALCENTRODELATIERRA.txt",
                   encoding = "UTF-8", what = "char",
                   sep = "\n")
lectura <- tibble(lectura) %>% 
    unnest_tokens(Token, lectura)

REMOVIENDO STOPWORDS

lectura <- lectura %>% anti_join(stopwords_es)

OBTENIENDO FREFUENCIAS POR PALABRA

lectura_frecuencias <- lectura %>%
  count(Token, sort = TRUE)

GRÁFICO DE LAS 10 PALABRAS MAS FRECUENTES

library(forcats)
grafico2 <- lectura_frecuencias %>% 
    top_n(10) %>% 
    ggplot() + 
    aes(x = fct_reorder(Token, n), y = n,fill=Token) + 
    geom_col() +
    labs(x = NULL, y = "Frecuencia", 
         title = " TOP 10 PALABRAS MAS USADAS EN LA LACTURA" ) +
    theme_minimal() + 
    theme(legend.position = "none") +
    coord_flip()
grafico2

NUBE DE LAS PALABRAS MAS USADAS

GRAFICA DE SENTIMIENTOS

Podemos visualizar que las palabras profesor refljea postivismo , la palabra duda representa
un sentimiento negativo y por último la palabra señor se refleja mas como confianza.

sentimientos <- read.delim("sentimientos_2.txt")

sentimientos <- as.tibble(sentimientos)

sentimientos <- distinct(sentimientos)

table(sentimientos$sentimiento)
## 
##     alegría     asombro   confianza    disgusto         ira       miedo 
##         618         476        1122         929        1071        1272 
##    negativo    positivo premonición    tristeza 
##        2986        2141         769        1011
lectura_sentimiento <- lectura %>% 
  inner_join(sentimientos,by=c("Token"="palabra"))

lectura_sentimiento %>%  
  dplyr::count(Token) %>% top_n(3) %>% 
  ggplot() + aes(x=fct_reorder(Token,n),
                 y=n,
                 fill=Token) + 
  geom_col(show.legend = F) + coord_flip() +
  labs(title ="Análisis de sentimientos de la lectura",
       subtitle = "VIAJE AL CENTRO DE LA TIERRA",
       caption = "Fuente: EDITORIAL DEL CARBO",
       x = "Palabras por sentimiento",
       y= "Frecuencia") +
  theme_bw()

VIDEO RELACIONADO

library(vembedr)
embed_url("https://www.youtube.com/watch?v=Bpp8QF2L44s")