ls()
rm(Data.Trump.Tuits_002.Corpus, Data.Trump.Tuits_003, Data.Trump.Tuits_003.Corpus.DTM, Data.Trump.Tuits_002, Data.Trump.Tuits_002.Corpus.DTM, Data.Trump.Tuits_003.Corpus)
ls()
Data.Required.Libraries
Data.Required.Libraries=c(Data.Required.Libraries, "wordcloud2")
Function.Base.Config.Environment();
Function.TM.GetFreqV=Function.TM.Freq.CreateCloud
fix(Function.TM.GetFreqV)
ls()
rm(Function.Math.moda)
fix(Function.TM.CreateDTM)
fix(Function.TM.CreateCorpus)
fix(Function.TM.CreateCorpus)
fix(Function.TM.CreateCorpus)
q()
Function.Base.Config.Environment()
Data.Original=read.csv("../Tweets/LaPAzI_2019_08_03T21_46_49_341Z.csv")
Data.Original.DF = as.data.frame(cbind(Data.Original$ID, as.character(Data.Original$Text)))
colnames(Data.Original.DF) = c("doc_id", "text")
Data.Original.DF.Corpus=Function.TM.CreateCorpus(Data.Original.DF, pLanguage="spanish", aStopWords=c("paz"));
Data.Original.DF.Corpus.DTM=Function.TM.CreateDTM(Data.Original.DF.Corpus)
Function.TM.Freq.CreateCloud(Data.Original.DF.Corpus.DTM)
Data.Original.DF.Corpus.FreqV=Function.TM.GetFreqV(Data.Original.DF.Corpus.DTM)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.5,color = "skyblue")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.5,color = "skyblue")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.5,color = "skyblue", gridSize=%)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.5,color = "skyblue", gridSize=5)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.5,color = "skyblue", gridSize=15)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 2.6)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 2.6)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 2.6, gridSize=10)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 0.6, gridSize=10)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 0.6)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 0.1)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 4.0)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=1)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0)
help(wordcloud2)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, widgetsize="500px")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, widgetsize="width:500px;height:500px;")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, widgetsize="width:500px;")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, widgetsize="500px;")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, widgetsize="500px")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=0)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=1)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.0, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=1)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.0, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=.5)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.0, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=.25)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=0.25)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 10, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=0.25)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 2.0, rotateRatio=0, shuffle=FALSE, hoverFunction=NULL, ellipticity=0.25)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 2.0, widgetsize="1000%")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 2.0, gridSize=2)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.5, gridSize=2)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 1.0, gridSize=2)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 0.5, gridSize=2)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png", size = 0.5, gridSize=20)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "M2jeo.jpg", size = 0.5, gridSize=20)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "M2jeo.jpg", size = 0.5)
wordcloud2(demoFreq, figPath = "M2jeo.jpg")
wordcloud2(demoFreq, figPath = "M2jeo.jpg")
wordcloud2(demoFreq, figPath = "M2jeo.png")
set.seed(42)
data("love_words_small")
ggplot(love_words_small, aes(label = word, size = speakers)) +
geom_text_wordcloud() +
scale_size_area(max_size = 20) +
theme_minimal()
ggplot(love_words_small, aes(label = word, size = speakers)) +
geom_text_wordcloud_area() +
scale_size_area(max_size = 20) +
theme_minimal()
library(ggplot)
install.packages("ggplot")
url <- "https://raw.githubusercontent.com/lgellis/MiscTutorial/master/twitter_wordcloud/wwmaze2.jpg"
wwMaze <- "wwmaze2.jpg"
download.file(url, wwMaze) # download file
wordcloud2(demoFreq, size=2.6, figPath = wwMaze, color="black")
wordcloud2(demoFreq, figPath = wwMaze, color="black")
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png")
q()
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png")
ls()
Function.Base.Config.Environment();
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "../Logos/Huella_Black_H.png")
Data.Original.DF.Corpus.FreqV
dim(Data.Original.DF.Corpus.FreqV)
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ cat("{\word\":\"", Data.Original.DF.Corpus.FreqV[1,A], "\",\"freq\":", Data.Original.DF.Corpus.FreqV[2,A],"},") }
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ cat("{\"word\":\"", Data.Original.DF.Corpus.FreqV[1,A], "\",\"freq\":", Data.Original.DF.Corpus.FreqV[2,A],"},") }
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ cat("{\"word\":\"", Data.Original.DF.Corpus.FreqV[1,A], "\",\"freq\":", Data.Original.DF.Corpus.FreqV[2,A],"},\n") }
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ cat("{\"word\":\"", Data.Original.DF.Corpus.FreqV[1,A], "\",\"freq\":", Data.Original.DF.Corpus.FreqV[2,A],"},\n") }
Data.Original.DF.Corpus.FreqV[1,1]
Data.Original.DF.Corpus.FreqV[2,1]
Data.Original.DF.Corpus.FreqV[2,2]
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ cat("{\"word\":\"", Data.Original.DF.Corpus.FreqV[A,1], "\",\"freq\":", Data.Original.DF.Corpus.FreqV[A,2],"},\n") }
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ cat("{\"word\":\"", as.character(Data.Original.DF.Corpus.FreqV[A,1]), "\",\"freq\":", Data.Original.DF.Corpus.FreqV[A,2],"},\n") }
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ cat("{\"word\":\"", as.character(Data.Original.DF.Corpus.FreqV[A,1]), "\",\"freq\":", Data.Original.DF.Corpus.FreqV[A,2],"},\n", sep="") }
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ if(Data.Original.DF.Corpus.FreqV[A,2]>1){cat("{\"word\":\"", as.character(Data.Original.DF.Corpus.FreqV[A,1]), "\",\"freq\":", Data.Original.DF.Corpus.FreqV[A,2],"},\n", sep="") }}
for (A in 1:dim(Data.Original.DF.Corpus.FreqV)[1]){ if(Data.Original.DF.Corpus.FreqV[A,2]>1){cat(Data.Original.DF.Corpus.FreqV[A,2], " ",  as.character(Data.Original.DF.Corpus.FreqV[A,1]), "\n", sep="") }}
ls()
rm(url)
rm(A. wwMaze)
rm(A,} wwMaze)
rm(A, wwMaze)
ls()
fix(Function.TM.SaveFreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
Data.Original.DF.Corpus.FreqV[,2]
Data.Original.DF.Corpus.FreqV
Data.Original.DF.Corpus.FreqV
Data.Original.DF.Corpus.FreqV[1,]
summary(Data.Original.DF.Corpus.FreqV)
q()
summary(Data.Original.DF.Corpus.FreqV)
Data.Original.DF.Corpus.FreqV
Data.Original.DF.Corpus.FreqV[,2]
summary(Data.Original.DF.Corpus.FreqV[,2])
summary(Data.Original.DF.Corpus.FreqV[,2]/227.3)
summary(Data.Original.DF.Corpus.FreqV[,2]/22.73)
plot(Data.Original.DF.Corpus.FreqV[,2])
ls()
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
plot(Data.Original.DF.Corpus.FreqV[,2])
plot(Data.Original.DF.Corpus.FreqV[,2]>1)
plot(log(Data.Original.DF.Corpus.FreqV[,2]))
fix(Function.TM.SaveFreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
fix(Function.TM.SaveFreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
Data.Original.DF.Corpus=Function.TM.CreateCorpus(Data.Original.DF, pLanguage="spanish", aStopWords=c("paz", "...", "\""));
Data.Original.DF.Corpus.DTM=Function.TM.CreateDTM(Data.Original.DF.Corpus)
Function.TM.Freq.CreateCloud(Data.Original.DF.Corpus.DTM)
Data.Original.DF.Corpus.FreqV=Function.TM.GetFreqV(Data.Original.DF.Corpus.DTM)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.5,color = "skyblue")
Function.Base.Config.Environment()
Data.Original=read.csv("../Tweets/LaPAzI_2019_08_03T21_46_49_341Z.csv")
Data.Original.DF = as.data.frame(cbind(Data.Original$ID, as.character(Data.Original$Text)))
colnames(Data.Original.DF) = c("doc_id", "text")
Data.Original.DF.Corpus=Function.TM.CreateCorpus(Data.Original.DF, pLanguage="spanish", aStopWords=c("paz", "...", "\""));
Data.Original.DF.Corpus.DTM=Function.TM.CreateDTM(Data.Original.DF.Corpus)
Function.TM.Freq.CreateCloud(Data.Original.DF.Corpus.DTM)
Data.Original.DF.Corpus.FreqV=Function.TM.GetFreqV(Data.Original.DF.Corpus.DTM)
wordcloud2(Data.Original.DF.Corpus.FreqV, figPath = "R.jpg", size = 1.5,color = "skyblue")
round(1.09)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
save.image()
ls()
fix(Function.TM.SaveFreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
fix(Function.TM.SaveFreqV)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
Data.Original.DF.Corpus=Function.TM.CreateCorpus(Data.Original.DF, pLanguage="spanish", aStopWords=c("paz", "...", "\"", "…", "“", "¿según", "“lamento…", "¿amlo", "httpstcol7x7dzwdrvalvarouribevel", "pased…", "pasedel…", "valoresbuen…", "guarderiaabcpasedelista11…", "l…", "q…", "”", "‘", "d…", "excusasq…", "c…", "¿tuitearían"));
Data.Original.DF.Corpus.DTM=Function.TM.CreateDTM(Data.Original.DF.Corpus)
Function.TM.SaveFreqV(Data.Original.DF.Corpus.FreqV)
q()