```r
library(ggplot2)

ggplot(book_words, aes(n/total, fill = book)) +
  geom_histogram(show.legend = FALSE) +
  xlim(NA, 0.0009) +
  facet_wrap(~book, ncol = 2, scales = "free_y")
```

![(\#fig:plottf)Term Frequency Distribution in Jane Austen's Novels](03-tf-idf_files/figure-latex/plottf-1.pdf)