library(readxl)
data_nube <- read_excel("H:/Unidades compartidas/Trabajo maestria Cindy/Cindy Lopez/Pedro DATOS TESIS CINDY V2.xlsx",
                        sheet = "Unificar palabras")
head(data_nube)

## # A tibble: 6 × 6
##   Colombiana                  Francesa Lengua_3 Colombiana2 Francesa2 Lengua_3_2
##   <chr>                       <chr>    <chr>    <chr>       <chr>     <chr>     
## 1 Gente                       Literat… "Música" Compartir … La liter… La música 
## 2 Cultura natal               Orden, … "Indust… La tranqui… El orden… Las indus…
## 3 Comida, Fiesta, Música      Ciudade… "Ciudad… La comida,… Las ciud… Las ciuda…
## 4 Música, Fiesta              Comida,… "Comida… la música … la comid… la comida…
## 5 Música                      Comprom…  <NA>    La musica   El compr… ?         
## 6 Acogimiento, Comida, Músic… Comida,… "\r\nGe… Lo acogedo… La comid… Son perso…

library(tidytext)
library(wordcloud)

## Cargando paquete requerido: RColorBrewer

library(wordcloud2)
library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(tm)

## Cargando paquete requerido: NLP

library(NLP)

library(RColorBrewer)
display.brewer.all(colorblindFriendly=TRUE)

COLORES=brewer.pal(8, "Paired")

Colombiana

colombiana <- VCorpus(VectorSource(data_nube$Colombiana))
colombiana <- tm_map(colombiana, content_transformer(tolower))
colombiana <- tm_map(colombiana, removePunctuation)
#colombiana <- tm_map(colombiana, removewords, stopwords("español"))
wordcloud(colombiana, scale = c(4.6, 0.3),
          random.order = FALSE,
          min.freq = 1,
          max.words = 175,
          rot.per = 0.25,
          colors = COLORES)

# Francesa

francesa <- VCorpus(VectorSource(data_nube$Francesa))
francesa <- tm_map(francesa, content_transformer(tolower))
francesa <- tm_map(francesa, removePunctuation)
wordcloud(francesa, scale = c(4.6, 0.3),
          random.order = FALSE,
          min.freq = 1,
          max.words = 175,
          rot.per = 0.25,
          colors = COLORES)

# Lengua 3

lengua3 <- VCorpus(VectorSource(data_nube$Lengua_3))
lengua3 <- tm_map(lengua3, content_transformer(tolower))
lengua3 <- tm_map(lengua3, removePunctuation)
#colombiana <- tm_map(colombiana, removewords, stopwords("español"))
wordcloud(lengua3, scale = c(4.6, 0.3),
          random.order = FALSE,
          min.freq = 1,
          max.words = 175,
          rot.per = 0.25,
          colors = COLORES)

Nube de palabras

Pedro Lizarazo

2024-08-11

Colombiana