R绘制Venn图

维恩图：反映不同集合之间的交集以及并集情况的展示图

常用R包：gplots，venneuler,VennDiagram，最常用的是VennDiagram包的使用。

1. VennDiagram使用

library(VennDiagram)
A <- length(A)
B <- length(B)
A_B <- length(intersect(A,B))

dev.new()#创建新的图片窗口

venn.plot <- VennDiagram::draw.pairwise.venn(area1 = A,area2 = B,
                                             cross.area = A-B,
                                             category = c("A","B"),
                                             cat.col = c("red","blue"),
                                             fill = c("red","blue"),
                                             lty = "blank",
                                             cex = 2,#内标签大小
                                             cat.cex = 1,#外标签大小
                                             cat.pos = c(0,0),#设置外标签相对圆圈12点方向的旋转的位置
                                             cat.fontface = "bold", #设置外标签为粗体
                                             #cat.dist = c(0.1,0.1), #设置外标签相对圆圈中点的位置
                                             #cat.default.pos = "text"#,#设置外标签在内部
                                             cat.default.pos = "outer", #设置外标签在外部
                                             ext.pos = 30,
                                             #ext.dist = -0.05,
                                             ext.length = 0.85
                                             #ext.line.lwd = 2,
                                             #ext.line.lty = "dashed"
                                            
)
grid.newpage() #擦去当前图片窗口的图画
pdf("bulk Naive_CD4T vs single Naive_CD4T.pdf") #输出PDF文档图片
grid.draw(venn.plot) #在当前界面作图

dev.off() #销毁创建的图片窗口
dev.list() #查看目前的图片窗口

2. Rplots

library(gplots)
venn(data = list(A,B))