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.
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...