自用Venn代码

library (VennDiagram) 
library(openxlsx)
set1 <- read.xlsx("venn.xlsx",sheet = "dvf",colNames =  F)
set2 <- read.xlsx("venn.xlsx",sheet = "vs2",colNames = F)
set3 <- read.xlsx("venn.xlsx",sheet = "vb",colNames = F)

set1=t(set1)
length(set1)
set2=t(set2)
length(set2)
set3=t(set3)
length(set3)

vennplot <- venn.diagram(x=list(set1,set2,set3), 
              scaled = F, # 根据比例显示大小
              alpha= 0.8, #透明度
              lwd=4,lty=1,col="white", #圆圈线条粗细、形状、颜色；1 实线, 2 虚线, blank无线条
              label.col ='black' , # 数字颜色label.col=c('#FFFFCC','#CCFFFF',......)根据不同颜色显示数值颜色
              cex = 2, # 数字大小
              fontface = "bold",  # 字体粗细；加粗bold
              fill=c('#e0d9b8','#b8d8ee',"#e0f2ee"), # 填充色
              category.names = c("Deepvirfinder","Virsorter2","VIBRANT") , #标签名
              cat.dist = 0.02, # 标签距离圆圈的远近
              cat.pos = c(-10, 10, -180), # 标签相对于圆圈的角度cat.pos = c(-10, 10, 135)
              cat.cex = 2, #标签字体大小
              cat.fontface = "bold",  # 标签字体加粗
              cat.col='black' ,   #cat.col=c('#FFFFCC','#CCFFFF',.....)根据相应颜色改变标签颜色
              cat.default.pos = "outer",  # 标签位置, outer内;text 外
              cat.fontfamily = "Arial",  # 字体
              fontfamily = "Arial",  # 字体
              output=TRUE,
              filename='C:/Users/###/dvf_vs2_vb.png',# 文件保存
              height = 4000,  # 图片高度
              width = 4000,  # 图片宽度
              imagetype="png",  # 类型（tiff png svg）
              resolution = 350  # 分辨率
            # compression = "lzw"# 压缩算法
 )