Text and Sentiment Analysis in R

library(tidyverse)
library(tidytext)
library(gutenbergr)
library(wordcloud)

sentiments <- get_sentiments("nrc")

hound <- gutenberg_download(2852)
hound <- hound %>% 
           unnest_tokens(word, text) %>%
           anti_join(stop_words)

hound_sentiments <- hound %>% 
                      inner_join(sentiments) %>% 
                      count(word, sentiment, sort=TRUE) %>% 
                      pivot_wider(names_from=sentiment, 
                                  values_from=n, 
                                  values_fill=0)

hound_sentiments %>% with(wordcloud(word, joy, 
                                    min.freq=10,
                                    random.color = FALSE,
                                    colors = brewer.pal(8, "PuOr")))

hound_sentiments %>% with(wordcloud(word, fear, 
                                    min.freq=10,
                                    random.color = FALSE,
                                    colors = brewer.pal(12, "Paired")))

Return