```r
contributions <- usenet_words %>%
  inner_join(get_sentiments("afinn"), by = "word") %>%
  group_by(word) %>%
  summarize(occurences = n(),
            contribution = sum(score))

contributions
```

```
## # A tibble: 1,909 x 3
##    word      occurences contribution
##    <chr>          <int>        <int>
##  1 abandon           13          -26
##  2 abandoned         19          -38
##  3 abandons           3           -6
##  4 abduction          2           -4
##  5 abhor              4          -12
##  6 abhorred           1           -3
##  7 abhorrent          2           -6
##  8 abilities         16           32
##  9 ability          177          354
## 10 aboard             8            8
## # ... with 1,899 more rows
```