list = list(A = sample(LETTERS, 20),
B = sample(LETTERS, 22),
C = sample(LETTERS, 14),
D = sample(LETTERS, 30, replace = TRUE))
venn = Venn(list)
plot_upset(venn)
plot_upset(venn, order.intersect.by = "name")
plot_upset(venn, nintersects = 6)
# Show set bar numbers outside the bars
plot_upset(venn, sets.bar.show.numbers = TRUE, sets.bar.numbers.hjust = 1.2)
Run the code above in your browser using DataLab