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×tamp=1626078205&ver=3185&signature=V9nCg9Z-gakYKMHudH0hQWwAfWHauip9HUDWy*Mh4Lx1dO4EO6qn63CtJ4lIx7aoc-b7YnGkILC4WPXJLqeic5js47o9KC9VOuoE6UqkEkd68GTLUOlnQ-mT01E4ZHUT&new=1