#install.packages("RColorBrewer")
#install.packages("wordcloud")
library(wordcloud)
library(RColorBrewer)
palete <- brewer.pal(3,"Set2")
?brewer.pal
display.brewer.all()