venn.plot <- venn.diagram(
   x = mylist,
   filename = "Venn_5set_pretty.tiff",
   col = "black",
   fill = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3", "orchid3"),
   alpha = 0.50,
   cex = c(1.5, 1.5, 1.5, 1.5, 1.5, 1, 0.8, 1, 0.8, 1, 0.8, 1, 0.8,
    1, 0.8, 1, 0.55, 1, 0.55, 1, 0.55, 1, 0.55, 1, 0.55, 1, 1, 1, 1, 1, 1.5),
   cat.col = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3", "orchid3"),
   cat.cex = 1.5,
   cat.fontface = "bold",
   margin = 0.05
   );

R 多个 变量取 交集

mylist <- list(BRCA=brca,KIRC=kirc,PRAD=prad,THCA=thca,UCEC=ucec)

Reduce(intersect,mylist)