Chargement...
 
Imprimer

r_demo05_wordcloud

Testing some nice graphs from R through Pluginr in Tiki.

Word-cloud art from mods.t.o


{RR(loadandsave="1", wikisyntax="0", echo="1")}

  1. Includes a word cloud with the description of the packages from http://mods.tiki.org
  2. Example adapted from the ones shown here: http://www.r-bloggers.com/word-cloud-in-r/

if(!require(XML)){ install.packages("XML", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
if(!require(tm)){ install.packages("tm", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
if(!require(wordcloud)){ install.packages("wordcloud", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
if(!require(RColorBrewer)){ install.packages("RColorBrewer", lib="/usr/lib/R/site-library", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require(XML)
require(tm)
require(wordcloud)
require(RColorBrewer)
u2 = "http://mods.tiki.org/"
t2 = readHTMLTable(u2)
ap.corpus2 <- Corpus(DataframeSource(data.frame(t2[[1]]6)))
ap.corpus2 <- tm_map(ap.corpus2, removePunctuation)
ap.corpus2 <- tm_map(ap.corpus2, tolower)
ap.corpus2 <- tm_map(ap.corpus2, function(x) removeWords(x, stopwords("english")))
ap.tdm2 <- TermDocumentMatrix(ap.corpus2)
ap.m2 <- as.matrix(ap.tdm2)
ap.v2 <- sort(rowSums(ap.m2),decreasing=TRUE)
ap.d2 <- data.frame(word = names(ap.v2),freq=ap.v2)

  1. table(ap.d2$freq)

pal2 <- brewer.pal(8,"Dark2")

  1. png("wordcloud_packages.png", width=1280,height=800)

wordcloud(ap.d2$word,ap.d2$freq, scale=c(8,.2),min.freq=3,
max.words=Inf, random.order=FALSE, rot.per=.15, colors=pal2)

  1. dev.off()

{RR}

Once everything is ready in your system (all packages installed, etc), you'll see something like this:

Image