IT- Text Mining

Instalar paquetes y llamar librerías

#install.packages("tidyverse") # Data wrangling
library(tidyverse)
#install.packages("tesseract") # OCR
library(tesseract)
#install.packages("magick") # PNG
library(magick)
#install.packages("officer") # Exportar a formatos Office (Especialmente Word)
library(officer)
#install.packages("pdftools") # PDF
library(pdftools)
#install.packages("purrr") # Para la función map para aplicar una función a cada elemento de un vector
library(purrr)
#install.packages("tm") # Text Mining
library(tm)
#install.packages("RColorBrewer") # Para manejar colores
library(RColorBrewer)
#install.packages("wordcloud") # Para hacer Nubes de Palabras
library(wordcloud)
#install.packages("topicmodels") # Modelos de Temas
library(topicmodels)
#install.packages("ggplot2") # Gráficas con más diseño
library(ggplot2)

Ejercicio 2. IT

text_IT <- readLines("it.txt") #traer texto de internet
#stopwords("spanish")

#texto_sin_acentos<- iconv(text_IT, to= "ASCII//TRANSLIT") #Texto sin acentos
#text2<- iconv(text_IT, to= "ASCII//TRANSLIT") #Texto sin acentos

text2 <- iconv(text_IT, to = "UTF-8", sub = "byte") # Convertir texto codificado a caracteres legibles

corpus2 <- Corpus(VectorSource(text2)) # Pone cada renglón en una celda de vector
# inspect(corpus)
corpus2 <- tm_map(corpus2, content_transformer(tolower)) # Pone todo en minúsculas

## Warning in tm_map.SimpleCorpus(corpus2, content_transformer(tolower)):
## transformation drops documents

 #inspect(corpus)
corpus2 <- tm_map(corpus2, removePunctuation) # Elimina puntuación

## Warning in tm_map.SimpleCorpus(corpus2, removePunctuation): transformation
## drops documents

#inspect(corpus)
corpus2 <- tm_map(corpus2, removeNumbers) # Elimina números

## Warning in tm_map.SimpleCorpus(corpus2, removeNumbers): transformation drops
## documents

corpus2 <- tm_map(corpus2, removeWords, stopwords("spanish")) # Elimina palabras que no hablan del tema

## Warning in tm_map.SimpleCorpus(corpus2, removeWords, stopwords("spanish")):
## transformation drops documents

# corpus <- tm_map(corpus, removeWords, c("dream","")) # Elimina palabras puntuales
inspect(corpus2)

## <<SimpleCorpus>>
## Metadata:  corpus specific: 1, document level (indexed): 0
## Content:  documents: 3
## 
## [1]  alli  persiguiendo  barco  papel   lado izquierdo  witcham street corra deprisa   agua  ganaba   barquito  sacando ventaja oy  rugido profundo  vio cmo cincuenta metros ms adelante colina abajo  agua   cuneta  precipitaba dentro   boca  tormenta  acn continuaba abierta   largo semicirculo oscuro abierto   bordillo   acera  mientras george miraba  rama desgarrada   corteza oscura  reluciente  hundi  aquellas fauces all pendi   momento  luego  desliz hacia  interior hacia all  encaminaba  bote  d cmierda dchill horrorizado  forz  paso    momento pareci  iba  alcanzar  barquito     ples resbal  george cayo despatarrado despellejndose  rodilla   grito  dolor   nueva perspectiva   altura  pavimento vio   barco giraba  redondo dos veces momentneamente atrapado   remolino   desaparecer  dcmierda  ms mierda dvolvi  chillar estrellando  puo   pavimento   tambien doli   ech  sollozar cque manera tan estupida  perder  barco   levant  caminar hacia  boca  tormenta  all  dej caer  rodillas  mirar hacia  interior  agua haca  ruido hueco  hcmedo  caer   oscuridad  sonido  daba escalofrios haca pensar   dceh   exclamacin   arrancada    cordel retrocedio  all adentro haba  ojos amarillos  tipo  ojos   siempre imaginaba  verlos nunca   oscuridad  stano   animal dpenso incoherented     animal   mejor  gato  qued atrapado    modos   echar  correr habria corrido   dos segundos   tablero mental   hecho cargo  espanto   produjeron  dos ojos amarillos  brillantes sinti  spera superficie  pavimento bajo  dedos   fina lmina  agua fra  corra alrededor  vio  s mismo levantndose  retrocediendo   entonces   voz  voz perfectamente razonable  bastante simptica  habl  dentro   boca  tormenta  dhola george ddijo  george parpadeo  volvi  mirar apenas poda dar credito    vela    sacado   cuento    pelcula   sabe   animales hablan  bailan si   diez aos ms  habria creido     viendo   tenia dieciseis aos sino seis    boca  tormenta habia  payaso  luz distaba  ser buena  bast   george denbrough  seguro    vela   payaso    circo    tele parecia  mezcla  bozo  clarabell   hablaba haciendo sonar  bocina  howdy doody  sbados   maana bcfalo bob   cnico  entenda  clarabell   siempre hacia reir  george  cara  payaso metido   boca  tormenta  blanca tenia cmicos mechones  pelo rojo  cada lado   calva   gran sonrisa  payaso pintada 
## [2] alrededor   boca si george  vivido aos despues habria pensado  ronald mcdonald    bozo   clarabell   payaso tena   mano  manojo  globos    colores  tentadora fruta madura      barquito  papel  george  dcquieres  barquito georgie  payaso sonrela  george tambien sonri  poda evitarlo aquella sonrisa   tipo   devuelve  querer  dpor supuesto   payaso  ech  reir  dcpor supuestoc cas  gusta cas  gusta cy  globo cque  parece cquieres  globod dbueno s  supuesto dalarg  mano   inmediato  retir   voluntadd  debo coger    ofrezca  desconocido  dice  pap  dy  papa  mucha razn dreplic  payaso   boca  tormenta sonriendo george  pregunt cmo podia haber creido   ojos  amarillos si    color azul brillante bailarin   ojos   mam   bill d muchsima razn   creo    voy  presentarme george   seor bob gray tambien conocido  pennywise  payaso ballarin pennywise  presento  george denbrough george  presento  pennywise  ahora   conocemos     desconocido   tampoco ccorrecto  george solt  risita  dcorrecto dvolvi  estirar  mano   retirarlad ccmo  metiste alli adentro  dla tormenta  trajo volaaaando ddijo pennywise  payaso bailarind  llev   circo cno sientes olor  circo george  george  inclin hacia adelante cde pronto ola  cacahuetes ccacahuetes tostados cy vinagre blanco    pone   patatas fritas   agujero   tapa  ola  algodn  azucar  buuelos  tambien leve  poderosamente  estiercol  animales salvajes olia  aroma regocijante  aserrin   embargo   embargo bajo   ola  inundacin  hojas deshechas   oscuras sombras  bocas  tormenta   olor hcmedo  putrido  olor  stano     olores  ms fuertes  dclaro   huelo ddijo  dcquieres  barquito george dpregunt pennywised   pregunto  vez   pareces desearlo                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
## [3]   mostr  alto sonriendo llevaba  traje  seda abolsado  grandes botones color naranja  corbata brillante  color azul electrico   derramaba   pechera   manos llevaba grandes guantes blancos  mickey  donald  dsi claro ddijo george mirando dentro   boca  tormenta  dcy  globo   rojos verdes amarillos azules  dcflotan  dcque si flotan dla sonrisa  payaso  acentud oh s claro  s cflotan tambien  algodn  azucar  george estir  mano   payaso  sujeto  brazo   entonces george vio cmo  cara  payaso cambiaba    vio entonces  tan terrible   peor  haba imaginado   cosa  stano pareca  dulce sueo   vio destruy  cordura   zarpazo  dflotan dcro  cosa   alcantarilla   voz  rea   cogulos  sujetaba  brazo  george   puo grueso  agusanado tir   hacia  horrible oscuridad    agua corra  ruga  aullaba llevando hacia  mar  desechos   tormenta george estir  cuello  apartarse   negrura definitiva  empez  gritar hacia  lluvia  gritar   loco hacia  gris cielo otoal   curvaba  derry aquel da  otoo    gritos  agudos  penetrantes    largo  toda  calle  gente  asom   ventanas   lanz   porches  dflotan dgru  cosad flotan georgie   estes aqui abajo conmigo tc tambien flotars   hombro  george  clav   cemento  bordillo dave gardener   da  habia ido  trabajar  shoeboat debido   inundacin vio slo   nio  impermeable amarillo  nio  gritaba   retorcia   arroyo mientras  agua lodosa  corra   cara haciendo   alaridos sonaran burbujeantes  daqui abajo  flota dsusurr  voz podrida riendo   pronto   desgarro    destello  agona  george denbrough   supo ms  dave gardener   primero  llegar aunque lleg slo cuarenta  cinco segundos despues  primer grito george denbrough  habia muerto gardener  agarr   impermeable tir    sacarlo   calle   girar   manos  cuerpo  george tambien  empez  gritar  lado izquierdo  impermeable  nio    rojo intenso  sangre flua hacia  alcantarilla   agujero  haba   brazo izquierdo  trozo  hueso horriblemente brillante asomaba   tela rota   ojos  nio miraban fijamente  cielo gris  mientras dave retroceda  tropezones hacia     corrian   calle empezaron  llenarse  lluvia

tdm2<- TermDocumentMatrix(corpus2)
m2<- as.matrix(tdm2) #Cuenta las veces que aparece cada palabra por renglón.
frecuencia2<- sort(rowSums(m2), decreasing = TRUE) #Cuenta la frecuencia de cada palabra en el texto
frecuencia_df2<- data.frame(word=names(frecuencia2), freq=frecuencia2) #Convierte la frecuencia a data

ggplot(head(frecuencia_df2,10), aes(x=reorder(word, -freq), y=freq)) +
       geom_bar(stat="identity", fill= "lightblue") +
       geom_text(aes(label = freq), vjust = -0.5) +
       labs(title= "TOP 10 palabras más frecuentes", 
subtitle = "IT", X= "Palabra", y = "Frecuencia") +
  ylim(0,20)

## Warning: Removed 1 rows containing missing values (`position_stack()`).

## Warning: Removed 1 rows containing missing values (`geom_text()`).

Nube de Palabras

# El procesamiento de datos antes de la nube de palabras es igual que en el Análisis de Frecuencias, desde importar el texto hasta frecuencia_df2
set.seed(123)
wordcloud(words=frecuencia_df2$word,freq=frecuencia_df2$freq, min.freq=1,
random.order=FALSE, colors = brewer.pal(8, "RdPu"))

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## salvajes could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## tampoco could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## tostados could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## abolsado could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## acentud could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## agona could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## agudos could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## agusanado could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## alaridos could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## apartarse could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## arroyo could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## asomaba could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## aullaba could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## aunque could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## azules could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## blancos could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## burbujeantes could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cambiaba could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cemento could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cinco could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## clav could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cogulos could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## corbata could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cordura could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## corrian could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cosad could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cuarenta could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cuello could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## cuerpo could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## curvaba could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## daqui could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## dcflotan could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## dcque could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## dcy could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## debido could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## definitiva could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## derramaba could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## derry could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## desechos could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## desgarro could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## destello could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## destruy could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## dgru could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## donald could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## dsusurr could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## electrico could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## empezaron could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## fijamente could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## flotars could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## gente could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## gritaba could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## gritos could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## grueso could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## guantes could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## hombro could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## horrible could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## horriblemente could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## imaginado could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## intenso could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## llegar could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## llenarse could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## llevando could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## loco could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## lodosa could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## mar could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## mickey could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## miraban could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## mirando could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## mostr could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## muerto could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## naranja could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## negrura could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## otoal could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## pareca could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## pechera could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## penetrantes could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## peor could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## podrida could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## porches could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## primer could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## primero could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## retorcia could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## retroceda could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## riendo could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## rojos could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## rota could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## ruga could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## sacarlo could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## sangre could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## shoeboat could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## sonaran could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## sueo could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## sujetaba could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## sujeto could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## supo could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## terrible could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## trabajar could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## traje could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## tropezones could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## trozo could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## ventanas could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## verdes could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = frecuencia_df2$word, freq = frecuencia_df2$freq, :
## zarpazo could not be fit on page. It will not be plotted.