绘制韦恩图

从一个文件夹中读取全部的*.csv文件

从一个文件夹中读取全部的*.csv文件，用到lapply函数，将这些文件读入一个list，此时元素没有名字，而后用substr提取相应的名字给list中的元素。

# 设置工作路径 setwd('D:/Sync/Dlm_wk/BB_merge_data/11Nov')

filenames <- list.files("./venn", pattern = "*.csv", full.names = TRUE)
filenames

## character(0)

# we use 'lapply' function to read all the files in filenames
ldf <- lapply(filenames, read.csv)
## names of 'ldf' are empty, use 'substr' can cut out the wanted names for
## all files each
names(ldf) <- substr(filenames, 17, 18)

开始画韦恩图

# 加载包
library(VennDiagram)
# 生成的图片会自动保存到工作目录
venn.diagram(x=
               list("Ev"=ldf$Es$Group,
                    "Ds"=ldf$Dr$Group,
                    "Ao"=ldf$Ar$Group,
                    "Hm"=ldf$Hi$Group
               ),
             "Venn_PP.tiff",
             col = "transparent",
             fill = c("cornflowerblue", "green", "yellow","blue"))

加入本地图片，反斜杠，不加引号。