Venn 图

# 读入数据为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"
)