```r
library(ggplot2)

raw_text %>%
  group_by(newsgroup) %>%
  summarize(messages = n_distinct(id)) %>%
  ggplot(aes(newsgroup, messages)) +
  geom_col() +
  coord_flip()
```

<div class="figure">
<img src="09-usenet_files/figure-html/messagecounts-1.png" alt="Number of messages from each newsgroup" width="672" />
<p class="caption">(\#fig:messagecounts)Number of messages from each newsgroup</p>
</div>