```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()
```

<div class="figure">
<img src="09-usenet_files/figure-epub3/usenetcontributions-1.png" alt="Words with the greatest contributions to positive/negative sentiment scores in the Usenet text"  />
<p class="caption">(\#fig:usenetcontributions)Words with the greatest contributions to positive/negative sentiment scores in the Usenet text</p>
</div>