ggplot(janeaustensentiment, aes(index, sentiment, fill = book)) + geom_bar(stat = "identity", show.legend = FALSE) + facet_wrap(~book, ncol = 2, scales = "free_x") + theme_minimal(base_size = 13) + labs(title = "Sentiment in Jane Austen's Novels", y = "Sentiment") + scal...