```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")
```

<div class="figure">
<img src="02-sentiment-analysis_files/figure-epub3/sentimentplot-1.png" alt="Sentiment through the narratives of Jane Austen's novels"  />
<p class="caption">(\#fig:sentimentplot)Sentiment through the narratives of Jane Austen's novels</p>
</div>