obj1 <- data.frame(words=c("a","b","c"),
                   freq=c(10,6,2))

obj2 <- data.frame(words=c("a","b","c"),
                   freq=c(15,11,5))

wordcloud(obj1$words, obj1$freq, min.freq =3,
          scale=c(5, .2), random.order = FALSE, random.color = FALSE,
          colors= c("red"))
#Create word cloud of Obama speech
wordcloud(obj2$words, obj2$freq, min.freq =3,
          scale=c(5, .2), random.order = FALSE, random.color = FALSE,
          colors= c("green"))