venn diagram

library(ggplot2)
library(ggvenn)

## Loading required package: dplyr

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## Loading required package: grid

library(ggVennDiagram)

genes <- paste("gene",1:1000,sep="")
x <- list(
  A = sample(genes,290), 
  B = sample(genes,169), 
  C = sample(genes,346),
  D = sample(genes,329)
  )

ggVennDiagram(x, label_alpha = 0)

ggVennDiagram(
  x, label_alpha = 0,
  category.names = c("A","B","C", "D")
  ) +
  ggplot2::scale_fill_gradient(low="red",high = "yellow")

ggVennDiagram(x[1:3], label_alpha = 0)

library("ggvenn")

names(x) <- c("A","B","C", "D")
ggvenn(
  x, 
  fill_color = viridis::magma(n=4),
  stroke_size = 0.5, set_name_size = 4
  )