Get AFINN sentiments

library(tidytext)

## Warning: package 'tidytext' was built under R version 4.0.5

get_sentiments("afinn")

## # A tibble: 2,477 x 2
##    word       value
##    <chr>      <dbl>
##  1 abandon       -2
##  2 abandoned     -2
##  3 abandons      -2
##  4 abducted      -2
##  5 abduction     -2
##  6 abductions    -2
##  7 abhor         -3
##  8 abhorred      -3
##  9 abhorrent     -3
## 10 abhors        -3
## # ... with 2,467 more rows

Get bing sentiments

get_sentiments("bing")

## # A tibble: 6,786 x 2
##    word        sentiment
##    <chr>       <chr>    
##  1 2-faces     negative 
##  2 abnormal    negative 
##  3 abolish     negative 
##  4 abominable  negative 
##  5 abominably  negative 
##  6 abominate   negative 
##  7 abomination negative 
##  8 abort       negative 
##  9 aborted     negative 
## 10 aborts      negative 
## # ... with 6,776 more rows

Get nrc sentiments

get_sentiments("nrc")

## # A tibble: 13,875 x 2
##    word        sentiment
##    <chr>       <chr>    
##  1 abacus      trust    
##  2 abandon     fear     
##  3 abandon     negative 
##  4 abandon     sadness  
##  5 abandoned   anger    
##  6 abandoned   fear     
##  7 abandoned   negative 
##  8 abandoned   sadness  
##  9 abandonment anger    
## 10 abandonment fear     
## # ... with 13,865 more rows

Lookup Authors

library(gutenbergr)

## Warning: package 'gutenbergr' was built under R version 4.0.5

head(gutenberg_metadata$author)

## [1] NA                                   "Jefferson, Thomas"                 
## [3] "United States"                      "Kennedy, John F. (John Fitzgerald)"
## [5] "Lincoln, Abraham"                   "United States"

Look up books by Washington Irving

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.0.5

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(stringr)

## Warning: package 'stringr' was built under R version 4.0.5

gutenberg_metadata %>%
  filter(author == "Irving, Washington")

## # A tibble: 29 x 8
##    gutenberg_id title   author gutenberg_autho~ language gutenberg_books~ rights
##           <int> <chr>   <chr>             <int> <chr>    <chr>            <chr> 
##  1           41 The Le~ Irvin~               34 en       Children's Lite~ Publi~
##  2          877 Little~ Irvin~               34 en       <NA>             Publi~
##  3         1371 Astori~ Irvin~               34 en       Western          Publi~
##  4         1850 Old Ch~ Irvin~               34 en       <NA>             Publi~
##  5         2048 The Sk~ Irvin~               34 en       <NA>             Publi~
##  6         3293 Chroni~ Irvin~               34 en       <NA>             Publi~
##  7         7002 Life o~ Irvin~               34 en       <NA>             Publi~
##  8         7948 Abbots~ Irvin~               34 en       <NA>             Publi~
##  9         7993 Oliver~ Irvin~               34 en       <NA>             Publi~
## 10         7994 The Cr~ Irvin~               34 en       <NA>             Publi~
## # ... with 19 more rows, and 1 more variable: has_text <lgl>

my_books <- gutenberg_works()  %>%
  filter(author == "Irving, Washington")

List the words in books by Washington Irving

irving_books <- gutenberg_download(my_books$gutenberg_id,
                            
                            mirror = "http://aleph.gutenberg.org")


irving_book_words <-  irving_books %>%
  mutate(
    linenumber = row_number(),
    chapter = cumsum(str_detect(text, 
                                regex("^chapter [\\divxlc]", 
                                      ignore_case = TRUE)))) %>%
  ungroup() %>%
  unnest_tokens(word, text)

Filter by negative sentiments in words

bing_negative <- get_sentiments("bing") %>% 
  filter(sentiment == "negative")

irving_book_words %>%
  inner_join(bing_negative, word=word) %>%
  count(word, sort = TRUE)

## Joining, by = "word"

## # A tibble: 2,769 x 2
##    word        n
##    <chr>   <int>
##  1 enemy    1105
##  2 poor      767
##  3 death     682
##  4 attack    538
##  5 fell      488
##  6 wild      487
##  7 lost      468
##  8 retreat   394
##  9 object    392
## 10 struck    387
## # ... with 2,759 more rows

List the sentiments by book id

library(tidyr)

## Warning: package 'tidyr' was built under R version 4.0.5

irving_sentiment <- irving_book_words %>%
  inner_join(get_sentiments("bing")) %>%
  count(gutenberg_id, index = linenumber %/% 80, sentiment) %>%
  pivot_wider(names_from = sentiment, values_from = n, values_fill = 0) %>%   mutate(sentiment = positive - negative)

## Joining, by = "word"

Plot the sentiment graph across all books

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.0.5

ggplot(irving_sentiment, aes(index, sentiment, fill = gutenberg_id)) +
  geom_col(show.legend = FALSE) 

Tabular view of sentiment with count

library(kableExtra)

## Warning: package 'kableExtra' was built under R version 4.0.5

## 
## Attaching package: 'kableExtra'

## The following object is masked from 'package:dplyr':
## 
##     group_rows

bing_word_counts <- irving_book_words %>%
  inner_join(get_sentiments("bing")) %>%
  count(word, sentiment, sort = TRUE) %>%
  ungroup()

## Joining, by = "word"

 bing_word_counts %>% kbl() %>% 
  kable_material(c("striped", "hover")) %>%
  scroll_box(width = "800px", height = "600px") %>%
  kable_styling(fixed_thead = T, bootstrap_options = "striped", full_width = F, position = "left")