ggplot2_venn.R

library(ggVennDiagram)
library(ggplot2)
#install.packages("ggVennDiagram")
# List of items
x <- list(A = 1:5, B = 2:7, C = 5:10, D = 8:15)
x

## $A
## [1] 1 2 3 4 5
## 
## $B
## [1] 2 3 4 5 6 7
## 
## $C
## [1]  5  6  7  8  9 10
## 
## $D
## [1]  8  9 10 11 12 13 14 15

# 4D Venn diagram
ggVennDiagram(x,
              label = "count", 
              set_color = c("#B3E2CD", "#FDCDAC", "#CBD5E8", "#F4CAE4"), 
              label_color = "black",
              show_intersect = F,
              label_alpha = 0) + 
  scale_color_brewer(palette = "Pastel2") +
  scale_fill_gradient(low="white",high = "white") +
  theme(legend.position = "none")

#?scale_color_brewer
#ref https://cran.r-project.org/web/packages/ggVennDiagram/vignettes/using-ggVennDiagram.html