Prepare a wordcloud of opinions regarding selected current affairs in India

wordCloud.r

tweets <- searchTwitter("hardik patel", n = 1000)
text <- sapply(tweets, function(x) x$getText())
dat3 <- grep("text",iconv(text,"latin1","ASCII",sub = "text"))
dat4 <- text[-dat3]
dat5 <- paste(dat4, collapse = ", ")
corpus <- Corpus(VectorSource(dat5))

tdm = TermDocumentMatrix(
  corpus,
  control = list(
    removePunctuation = TRUE,
    stopwords = c("gujrat", "modi", "hardik","patel", stopwords("english")),
    removeNumbers = TRUE, tolower = TRUE)
    )

m = as.matrix(tdm)
word_freqs = sort(rowSums(m), decreasing = TRUE) 
dm = data.frame(word = names(word_freqs), freq = word_freqs)

wordcloud(dm$word, dm$freq, random.order = FALSE, colors = brewer.pal(8, "Dark2"))