Required variables

Install required packages

install.packages(c("wordcloud","tm","twitteR","RCurl"),repos="http://cran.r-project.org")
require(twitteR)
require(RCurl)
require(wordcloud)
require(tm) #load text mining library
setup_twitter_oauth(consumer_key,consumer_secret,access_token,access_secret)
us_tweets<-searchTwitter("USelections",n=100,lang="en")

us_text<- sapply(us_tweets,function(x) x$getText())
us_corpus<- Corpus(VectorSource(us_text))

#Start cleanup
lords <- tm_map(us_corpus, stripWhitespace)
lords <- tm_map(lords, content_transformer(tolower))
lords <- tm_map(lords, removeNumbers)
toSpace <- content_transformer(function (x , pattern ) gsub(pattern, " ", x))
lords <- tm_map(lords, toSpace, "http\\S+\\s*")
lords <- tm_map(lords, toSpace, "http\\S+\\s*")
lords <- tm_map(lords, toSpace, "uselections")
lords <- tm_map(lords, toSpace, "#")
lords <- tm_map(lords, toSpace, "http\\w+")
lords <- tm_map(lords, toSpace, "@\\w+")
lords <- tm_map(lords, toSpace, "https\\w+")
lords <- tm_map(lords, toSpace, "uselect")
lords <-tm_map(lords, removeWords, c(stopwords("english"),"#","uselect","uselection","obama","donaldtrump","trump","carson","donald","#uselect","uselections","elections","uselections  ","white","house"))

#End clean up

#max.words is required to limit the number of words in the cloud
wordcloud(lords,random.order=F,min.freq=1,max.words=200,colors=brewer.pal(8, "Dark2"))