Creates a grouped or stacked bar plot showing sentiment distribution across categories.
Examples
if (FALSE) { # \dontrun{
data <- data.frame(
text = c("Good", "Bad", "Okay", "Great", "Poor"),
category = c("A", "A", "B", "B", "B")
)
data <- cbind(data, analyze_sentiment(data$text))
plot <- plot_sentiment_by_category(data, "category")
print(plot)
} # }
