```r
# reorder titles in order of topic 1, topic 2, etc before plotting
chapters_gamma %>%
  mutate(title = reorder(title, gamma * topic)) %>%
  ggplot(aes(factor(topic), gamma)) +
  geom_boxplot() +
  facet_wrap(~ title)
```

![(\#fig:chaptersldagamma)The gamma probabilities for each chapter within each book](06-topic-models_files/figure-latex/chaptersldagamma-1.pdf)