VennDiagram绘制韦恩图

参考自简书：
https://www.jianshu.com/p/285b4ac66768
里面分别讲到了1-5重韦恩图该如何绘制
最近只用了4重的，代码如下：
1.导入数据
数据必须具有一样的长度，这样使得长度不一样的几组数据不能直接用于作图，需要把空余的位置填上其它名字，使得真实数据长度会有影响。试了用NA填充，作图失败。

library('VennDiagram')
setwd('/Users/arabidopsis/Downloads/8-RNA-seq')
data <- read.table(file = '1-venn.txt', header = T)

2.作图

> venn.plot <- venn.diagram(
  x = list(
    X124 = data$X124,
    C88 = data$C88,
    H6 = data$H6,
    SI = data$SI
  ),
  filename = "1-venn.tiff",
  col = "black",
  lty = "solid", #边框线型改为"dotted"虚线
  lwd = 2, # 边框线的宽度
  fill = c("cornflowerblue", "green", "yellow", "darkorchid1"),#每个圈的颜色
  alpha = 0.50, #颜色的相对深度
  label.col = c("black"),#填充的字体颜色
  cex = 1.5,#填充字体大小
  fontfamily = "serif",#填充字体
  fontface = "bold",
  cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4"),#每个圈标注文字颜色，darkblue
  cat.cex = 1.5,#标注文字大小
  cat.fontface = "bold",
  cat.fontfamily = "serif"
)