Plot a commonality cloud
Plot a cloud of words shared across documents
commonality.cloud(term.matrix,comonality.measure=min,max.words=300,...)
term.matrix |
A term frequency matrix whose rows represent words and whose columns represent documents. |
comonality.measure |
A function taking a vector of frequencies for a single term, and returning a common frequency |
max.words |
Maximum number of words to be plotted. least frequent terms dropped |
... |
Additional parameters to be passed to wordcloud. |
nothing
if(require(tm)){
data(SOTU)
corp <- SOTU
corp <- tm_map(corp, removePunctuation)
corp <- tm_map(corp, content_transformer(tolower))
corp <- tm_map(corp, removeNumbers)
corp <- tm_map(corp, function(x)removeWords(x,stopwords()))
term.matrix <- TermDocumentMatrix(corp)
term.matrix <- as.matrix(term.matrix)
colnames(term.matrix) <- c("SOTU 2010","SOTU 2011")
comparison.cloud(term.matrix,max.words=40,random.order=FALSE)
commonality.cloud(term.matrix,max.words=40,random.order=FALSE)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.