Load libraries library(tm) library(wordcloud) library(RColorBrewer) library(RSentiment) library(rJava) library(syuzhet) library(dplyr) library(tidytext) library(textdata) library(wordcloud2) Read corpus from part 2 docs <- readRDS(file = "docs.rds") Create document term matrix bible_dtm <-DocumentTermMatrix(VCorpus(VectorSource(docs[[1]]$content))) Convert to tibble tidy_bible <- tidy(bible_dtm) Tokenising text tokenised <- tidy_bible %>% unnest_tokens(word, term) tokenised <- tokenised %>% anti_join(stop_words) Using the nrc lexicon feelings <- tokenised %>% inner_join(get_sentiments(lexicon= "nrc")) %>% count(word, sort = TRUE) Create wordcloud wordcloud2(feelings)