Producing a word cloud using R

While many of the visualizations portray numeric data, we canalso produce textual visualizations. In this case, we will produce a word cloud from data on a recent speech by president Trump.

How to do it...

We can use the following script:

library(tm)
#install.packages('wordcloud', repos='http://cran.us.r-project.org')
library(wordcloud)

#extracted from https://www.lifesitenews.com/news/jesus-birth-changed-the-course-of-human-history-trumps-extraordinary-2017-c
page <- readLines("trump-speech.txt")

# produce corpus of text
corpus <- Corpus(VectorSource(page))

# convert to lower case
corpus <- tm_map(corpus, tolower)
# remove punctuation
corpus <- tm_map(corpus, removePunctuation)
# remove numbers
corpus <- tm_map(corpus, removeNumbers)
# remove stop words
corpus <- tm_map(corpus, removeWords, stopwords("English"))

# reconfigure corpus as text document
#corpus <- tm_map(corpus, PlainTextDocument)
# create document term matrix from corpus...