# 读入数据为list类型，默认图片保存为tiff格式
venn.plot <- venn.diagram(
x = list(AT=data$AT),
filename = "1single_Venn.tiff",
col = "black", #边框颜色
lwd = 5, #边框线宽度
fontface = "bold", #标签字体
fill = "grey", #填充色
alpha = 0.7, #透明度
cex = 4, #标签字体大小
cat.cex = 3, #类名字体大小
cat.fontface = "bold", #类名字体
margin = 0.04 #边际距离
)
venn.plot <- venn.diagram(
x = list(
AT = data$AT,
Os = data$LOC_Os,
Scaffold = data$Scaffold,
Phpat = data$Phpat
),
filename = "4quadruple_Venn.tiff",
col = "black",
lty = "dotted", #边框线型改为"dotted"虚线
lwd = 3, # 边框线的宽度
fill = c("cornflowerblue", "green", "yellow", "darkorchid1"),
alpha = 0.50,
label.col = c("orange", "white", "darkorchid4", "white", "white", "white",
"white", "white", "darkblue", "white",
"white", "white", "white", "darkgreen", "white"),
cex = 2.0,
fontfamily = "serif",
fontface = "bold",
cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4"),
cat.cex = 1.8,
cat.fontface = "bold",
cat.fontfamily = "serif"
)
