if (FALSE) {
dist <- calculate_word_distribution(doc, c("method", "result", "conclusion"))
plot_word_distribution(dist, plot_type = "line", show_points = TRUE)
# Area plot with custom colors
plot_word_distribution(dist, plot_type = "area",
colors = c("#FF6B6B", "#4ECDC4", "#45B7D1"))
}
Run the code above in your browser using DataLab