```r
library(scales)

ggplot(frequency, aes(Julia, David)) +
  geom_jitter(alpha = 0.1, size = 2.5, width = 0.25, height = 0.25) +
  geom_text(aes(label = word), check_overlap = TRUE, vjust = 1.5) +
  scale_x_log10(labels = percent_format()) +
  scale_y_log10(labels = percent_format()) +
  geom_abline(color = "red")
```

<div class="figure">
<img src="07-tweet-archives_files/figure-html/spreadplot-1.png" alt="Comparing the frequency of words used by Julia and David" width="672" />
<p class="caption">(\#fig:spreadplot)Comparing the frequency of words used by Julia and David</p>
</div>