wordcloud.R

install.packages("tm")
install.packages("SnowballC")
install.packages("wordcloud")
install.packages("readtext")

library(tm)
library(SnowballC)
library(wordcloud)
library(readtext)

getwd()

setwd('/Users/cbonsignore/Desktop/Karthik Documents')

wordbase <- readtext("*.pdf")
corp <- Corpus(VectorSource(wordbase))
corp <- tm_map(corp, removePunctuation)
corp <- tm_map(corp, removeNumbers)
corp <- tm_map(corp, removeWords, c('the', 'this', 'and', 'page', 
                                    stopwords('english')))
color <- rev(brewer.pal(8,"RdYlBu"))

wordcloud(corp, max.words = 250, 
          random.order = FALSE, colors = color, 
          family = "serif", font = 3,
          scale = c(3,0.75))