```r
words_by_time %>%
  inner_join(top_slopes, by = c("word", "person")) %>%
  filter(person == "Julia") %>%
  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-epub3/topjulia-1.png" alt="Trending words in Julia's tweets"  />
<p class="caption">(\#fig:topjulia)Trending words in Julia's tweets</p>
</div>