```r
book_words %>%
  arrange(desc(tf_idf)) %>%
  mutate(word = factor(word, levels = rev(unique(word)))) %>% 
  group_by(book) %>% 
  top_n(15) %>% 
  ungroup %>%
  ggplot(aes(word, tf_idf, fill = book)) +
  geom_col(show.legend = FALSE) +
  labs(x = NULL, y = "tf-idf") +
  facet_wrap(~book, ncol = 2, scales = "free") +
  coord_flip()
```

<div class="figure">
<img src="03-tf-idf_files/figure-html/plotseparate-1.png" alt="Highest tf-idf words in each of Jane Austen's Novels" width="864" />
<p class="caption">(\#fig:plotseparate)Highest tf-idf words in each of Jane Austen's Novels</p>
</div>