Creates a bar plot showing the distribution of sentiment classifications.
Examples
if (FALSE) { # \dontrun{
data(SpecialEduTech)
texts <- SpecialEduTech$abstract[1:10]
sentiment_data <- analyze_sentiment(texts)
plot <- plot_sentiment_distribution(sentiment_data)
print(plot)
} # }
