韋恩圖 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()
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容