韦恩图 R 保存成pdf

library(VennDiagram)

A <- rownames(diffLab)
B <- rownames(diffLab_tcga)

###### Two sets
dataForVennDiagram <- list(GSE20916=A,TCGA=B)

vennDiagramColors <- c("dodgerblue", "darkorange1")
vennPlot <- venn.diagram(dataForVennDiagram,
                         filename = NULL,
                        # imagetype = 'tiff',
                         col = vennDiagramColors,
                         fill = vennDiagramColors,
                         lwd = 2,
                         alpha = 0.25,
                         fontfamily = 'sans',
                         margin = 0.1,
                         cat.dist = 0.03,
                         #cat.default.pos = "outer",
                         #cat.pos = c(-27, 27, 135),
                         cat.col = vennDiagramColors,
                         cat.fontface = 'bold',
                         cat.fontfamily = 'sans',
                         cat.cex = 1,
                         cex = 0.75)

pdf(file="proteinGroup_venn.pdf")
grid.draw(vennPlot)
dev.off()