R包VennDiagram禁止产生log文件

在R中使用VennDiagram进行韦恩图绘制时，通常会在工作目录下产生一个VennDiagram.XXXX.log。

如何才能抑制这个日志文件？

在绘图代码运行前，提前运行以下代码即可：

futile.logger::flog.threshold(futile.logger::ERROR, name = "VennDiagramLogger")

 示例：

set1 <- read.table("result1.xls",header=F,check.names=F,sep="\t")
set2 <- read.table("result2.xls",header=F,check.names=F,sep="\t")
set3 <- read.table("result3.xls",header=F,check.names=F,sep="\t")
set4 <- read.table("result4.xls",header=F,check.names=F,sep="\t")
vname <- c("A","B","C","D")
set1 <- t(na.omit(set1))
set2 <- t(na.omit(set2))
set3 <- t(na.omit(set3))
set4 <- t(na.omit(set4))
futile.logger::flog.threshold(futile.logger::ERROR, name = "VennDiagramLogger")
p <- venn.diagram(x=list(set1,set2,set3,set4),
             scaled = F, # 根据比例显示大小
             alpha= 0.6, #透明度
             lwd=1,lty='blank', #圆圈线条粗细、形状、颜色；1 实线, 2 虚线, blank无线条
             label.col ='black' , # 数字颜色abel.col=c('#FFFFCC','#CCFFFF',......)根据不同颜色显示数值颜色
             cex = 1, # 数字大小
             fill=c('#F9F59A','#B4DC97',"#9BD3EF","#F38FB3"), # 填充色 配色https://www.58pic.com/
			 category.names = vname , #标签名
             cat.dist = c(0.2, 0.2, 0.1, 0.1), # 标签距离圆圈的远近
             cat.pos = c(-18, 18, -18, 18), # 标签相对于圆圈的角度cat.pos = c(-10, 10, 135)
             cat.cex = 1, #标签字体大小
             cat.default.pos = "outer",  # 标签位置, outer内;text 外
             filename = NULL
)
pdf(file="Venn.pdf",width=6,height=6)
grid.draw(p)
dev.off()

参考：

利用代码注释入门Venn图 - 简书