```r
library(ggplot2)

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

![(\#fig:messagecounts)Number of messages from each newsgroup](09-usenet_files/figure-latex/messagecounts-1.pdf)