VennDiagram包绘制Venn图

1.创建绘图测试数据

Venn_data <- data.frame(A=sample(1:100,80,replace = T),
                        B=sample(1:100,80,replace = T),
                        C=sample(1:100,80,replace = T),
                        D=sample(1:100,80,replace = T),
                        E=sample(1:100,80,replace = T))
View(Venn_data)

2.VennDiagram包绘制Venn图

下面列出了一些常用的参数，其中图形元素设置的相关的参数不是必须的，根据自己绘图的需求来进行调整。在设置图形颜色的时候可以使用rainbow()函数来生成彩虹色，也是比较好看的。

# 加载VennDiagram包
library(VennDiagram)
venn.diagram(x=list(A=Venn_data$A,B=Venn_data$B,C=Venn_data$C,
                    D=Venn_data$D,E=Venn_data$E), # 传入绘图的数据
             filename = "./Venn.png", # 输出文件名
             
             # 输出的图形参数
             imagetype="png", # 输出图片类型(tiff,png,svg)
             height=1000, # 图片高度
             width=1000, # 图片宽度
             resolution = 300, # 图片分辨率
             
             ## 下面是除了标题外，图形其他元素的设置参数
             # 图形元素设置：圈
             lwd=1, # 圈线条的粗细：1 2 3 4 5 6
             lty=1, # 圈线条的类型：1为实线，2为虚线，blank为无线条
             
             # 图形元素设置：数字
             cex=1, # 数字大小
             fontface="bold", # 加粗
             fonrfamily="sans", # 数字字体
             fill=rainbow(5),  # 圆圈颜色，使用rainbow函数，生成5种颜色

             # 图形元素设置：标签即(category)
             cat.cex =1,  # 标签字体大小
             cat.col = "black",  # 标签字体色
             cat.fontface = "bold",  # 加粗
             cat.default.pos = "outer",  # 标签内外位置, 在圆圈内还是圆圈外，outer 内 text 外
             cat.pos = c(-27, 27, 135,200,250),  # 标签旋转位置，用圆的度数
             cat.dist = c(0.055, 0.055, 0.085,0.08,0.07),  # 标签离圆圈位置,离圆的距离，如果标签与圆圈重叠，可以调整这个参数
             cat.fontfamily = "sans",  # 标签字体
             #rotation = 1  # 1 2 3 旋转确定打头数据集
             
)

image-20210712172009251
 

参考链接：

https://mp.weixin.qq.com/s?src=11&timestamp=1626078205&ver=3185&signature=V9nCg9Z-gakYKMHudH0hQWwAfWHauip9HUDWy*Mh4Lx1dO4EO6qn63CtJ4lIx7aoc-b7YnGkILC4WPXJLqeic5js47o9KC9VOuoE6UqkEkd68GTLUOlnQ-mT01E4ZHUT&new=1