set.seed(123)
g1 <- sample(letters, 15)
g2 <- sample(letters, 10)
g3 <- sample(letters, 12)
# Classic 3-set Venn
plot_venn(g1, g2, g3, method = "classic", title = "Classic Venn")
# Gradient 2-set Venn
plot_venn(g1, g2, method = "gradient", title = "Gradient Venn")
# Return sets for downstream use
out <- plot_venn(g1, g2, return_sets = TRUE)
names(out)
Run the code above in your browser using DataLab