韦恩图 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()
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容