```r
words_by_time %>%
  inner_join(top_slopes, by = c("word", "person")) %>%
  filter(person == "David") %>%
  ggplot(aes(time_floor, count/time_total, color = word)) +
  geom_line(size = 1.3) +
  labs(x = NULL, y = "Word frequency")
```

<div class="figure">
<img src="07-tweet-archives_files/figure-html/topdave-1.png" alt="Trending words in David's tweets" width="768" />
<p class="caption">(\#fig:topdave)Trending words in David's tweets</p>
</div>