```r
word_by_favs %>%
  filter(uses >= 5) %>%
  group_by(person) %>%
  top_n(10, favorites) %>%
  arrange(favorites) %>%
  ungroup() %>%
  mutate(word = factor(word, unique(word))) %>%
  ungroup() %>%
  ggplot(aes(word, favorites, fill = person)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~ person, scales = "free", ncol = 2) +
  coord_flip() +
  labs(x = NULL, 
       y = "Median # of favorites for tweets containing each word")
```

<div class="figure">
<img src="07-tweet-archives_files/figure-html/plotfavs-1.png" alt="Words with highest median favorites" width="960" />
<p class="caption">(\#fig:plotfavs)Words with highest median favorites</p>
</div>