```r
word_ratios %>%
  group_by(logratio < 0) %>%
  top_n(15, abs(logratio)) %>%
  ungroup() %>%
  mutate(word = reorder(word, logratio)) %>%
  ggplot(aes(word, logratio, fill = logratio < 0)) +
  geom_col(show.legend = FALSE) +
  coord_flip() +
  ylab("log odds ratio (David/Julia)") +
  scale_fill_discrete(name = "", labels = c("David", "Julia"))
```

<div class="figure">
<img src="07-tweet-archives_files/figure-epub3/plotratios-1.png" alt="Comparing the odds ratios of words from our accounts"  />
<p class="caption">(\#fig:plotratios)Comparing the odds ratios of words from our accounts</p>
</div>