```r
library(ggplot2)

tidy_books %>%
  count(word, sort = TRUE) %>%
  filter(n > 600) %>%
  mutate(word = reorder(word, n)) %>%
  ggplot(aes(word, n)) +
  geom_col() +
  xlab(NULL) +
  coord_flip()
```

<div class="figure">
<img src="01-tidy-text_files/figure-html/plotcount-1.png" alt="The most common words in Jane Austen's novels" width="576" />
<p class="caption">(\#fig:plotcount)The most common words in Jane Austen's novels</p>
</div>