Creates a grouped or stacked bar plot showing sentiment distribution across categories.
Examples
# \donttest{
articles <- TextAnalysisR::SpecialEduTech[1:20, ]
sentiment_results <- analyze_sentiment(articles$abstract)
sentiment_data <- cbind(
reference_type = articles$reference_type,
sentiment_results
)
sentiment_plot <- plot_sentiment_by_category(sentiment_data, "reference_type")
print(sentiment_plot)
# }
