Text and Sentiment Analysis in R

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

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

counts <- hound %>% 
            count(word, sort=TRUE) %>%
            filter(n > 75)

counts <- counts %>% mutate(word = reorder(word, n))

counts %>% ggplot(aes(n, word)) + geom_col() + labs(y=NULL)

Return