Let’s make a word clouds for all the artists:
## install.packages('snippets',,'http://www.rforge.net/') library(snippets) ## Create a word cloud for all artists freqAll<-termFreq(PlainTextDocument(paste(artists, collapse=" "), language="en"), control=list(removePunctuation=TRUE, removeNumbers=TRUE, stopwords=TRUE, minDocFreq=100)) cloud(freqAll, col = col.br(freqAll, fit=TRUE))
And here’s a tag cloud for just one artist (Giovanni Cimabue) to compare it with:
## Create a word cloud for one artist freq<-termFreq(PlainTextDocument(artists[1], language="en"), control=list(removePunctuation=TRUE, removeNumbers=TRUE, stopwords=TRUE, minDocFreq=3)) cloud(freq, col = col.br(freq, fit=TRUE))