```r
library(ggplot2)

ggplot(jane_austen_sentiment, aes(index, sentiment, fill = book)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~book, ncol = 2, scales = "free_x")
```

![(\#fig:sentimentplot)Sentiment through the narratives of Jane Austen's novels](02-sentiment-analysis_files/figure-latex/sentimentplot-1.pdf)