##Uncomment if run for the 1st time
##install.packages("wordcloud");
library(wordcloud);
x<-sample(1:100,1000,replace=TRUE);
myWords<-unique(x);
myFreqs<-table(x);
myColors<-sample(c("blue","red","chartreuse4","black","green"),
length(myWords),replace=TRUE);
wordcloud(words=myWords,freq=myFreqs[myWords],colors=myColors);