```r
contributions %>%
  top_n(25, abs(contribution)) %>%
  mutate(word = reorder(word, contribution)) %>%
  ggplot(aes(word, contribution, fill = contribution > 0)) +
  geom_col(show.legend = FALSE) +
  coord_flip()
```

![(\#fig:usenetcontributions)Words with the greatest contributions to positive/negative sentiment scores in the Usenet text](09-usenet_files/figure-latex/usenetcontributions-1.pdf)