加载R包

library(VennDiagram)

数据

# Prepare character vectors
v1 <- c("DKK1", "NPC1", "NAPG", "ERG", "VHL", "BTD", "MALL", "HAUS1")
v2 <- c("SMAD4", "DKK1", "ASXL3", "ERG", "CKLF", "TIAM1", "VHL", "BTD", "EMP1", "MALL", "PAX3")
v3 <- c("PAX3", "SMAD4", "DKK1", "MALL", "ERG", "CDKN2A", "DENR", "NPC1", "NAPG")

# Create a list of vectors
vlist <- list(v1, v2, v3)
names(vlist) <- c("list1", "list2", "list3")

图1

venn.diagram(vlist[1:2], 
    filename="Venn_2way.png",
    imagetype="png")

图2

venn.diagram(vlist, 
        filename="Venn_3way.png",
        imagetype="png")

图3

venn.diagram(vlist,     
        filename="Venn_3way_more.png",
        imagetype="png",
    main="Venn diagram",
    sub="3-way",
    main.col="red",
    fill=c("lightgreen", "lightblue", "lightsalmon"),
    col=c("lightgreen", "lightblue", "lightsalmon"),
    cat.col=c("green", "blue", "salmon"))

参考

• https://biocorecrg.github.io/CRG_RIntroduction/venn-diagram-function-from-venndiagram-package.html