# \donttest{
library(metan)
(A <- letters[1:4])
(B <- letters[2:5])
(C <- letters[3:7])
(D <- letters[4:12])
# create a Venn plot
venn_plot(A, B)
# Three sets
venn_plot(A, B, C)
# Four sets
venn_plot(A, B, C, D)
# Use a list
dfs <- list(A = A, B = B, C = C, D = D)
venn_plot(dfs,
show_elements = TRUE,
fill = c("red", "blue", "green", "gray"),
stroke_color = "black",
alpha = 0.8,
text_size = 8,
label_sep = ".")
# }
Run the code above in your browser using DataLab