Creates a bar plot showing the distribution of sentiment classifications.
Examples
if (FALSE) { # \dontrun{
texts <- c("Great results!", "Poor performance", "Okay outcome")
sentiment_data <- analyze_sentiment(texts)
plot <- plot_sentiment_distribution(sentiment_data)
print(plot)
} # }
