word cloud for CSAMA

wordcloud.R

library(tm)
library(wordcloud)
crude <- scan("words", what="char", sep="\n")
crude <- gsub("/"," ",crude)
crude <- gsub("single cell","singlecell",crude)
crude <- Corpus(VectorSource(crude))
crude <- suppressWarnings(tm_map(crude, removePunctuation))
crude <- suppressWarnings(tm_map(crude, function(x) removeWords(x, stopwords())))
tdm <- TermDocumentMatrix(crude)
m <- as.matrix(tdm)
v <- sort(rowSums(m),decreasing=TRUE)
d <- data.frame(word=names(v),freq=v,row.names=NULL)
pal <- brewer.pal(12,"Paired")[-11]
wordcloud(d$word, d$freq, scale=c(2.5,.1),
          min.freq=1, random.color=TRUE, colors=pal)