韦恩图

immuneCor.result-CD28

library(data.table)
CD28=fread("immuneCor.result-CD28.txt",header = T)
CD96=fread("immuneCor.result-CD96.txt",header = T)
ICOS=fread("immuneCor.result-ICOS.txt",header = T)
GPR65=fread("immuneCor.result-GPR65.txt",header = T)
DENND5B=fread("immuneCor.result-DENND5B.txt",header = T)

library(VennDiagram)
venn.plot <- venn.diagram(
  x = list(
    CD28 = CD28$Cell,
    CD96 = CD96$Cell,
    ICOS = ICOS$Cell,
    GPR65= GPR65$Cell,DENND5B = DENND5B$Cell
  ),
  filename = "4quadruple_Venn.png",width = 3000, height = 3000,
  col = "black",margin=0.2,
  lty = "dotted", #边框线型改为"dotted"虚线
  lwd = 2, # 边框线的宽度
  fill = c("cornflowerblue", "green", "yellow", "darkorchid1","pink"),
  alpha = 0.50,
  #label.col = c("orange", "white", "darkorchid4", "white", "white", "white",
                #"white", "white", "darkblue", "white",
                #"white", "white", "white", "darkgreen", "white"),
  cex = 1.5,
  fontfamily = "serif",
  fontface = "bold",
  cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4","pink"),
  cat.cex = 1.5, #文字的大小
  cat.fontface = "bold",
  cat.fontfamily = "serif"
)

image.png