## 1.導(dǎo)入R包
? library("VennDiagram")
? library("rio")
## 2.設(shè)置當(dāng)前工作目錄
? if (length(path) != 0) {
? ? setwd(path)
? } else {
? ? setwd("./")
? }
## 3.讀取提前準(zhǔn)備好的數(shù)據(jù)
? venn_data_index <- list.files(path = "./", pattern = "^venn_data")
? venn_data <- import(venn_data_index)
## 4.韋恩圖數(shù)據(jù)集大小判斷及繪圖
? if (length(colnames(venn_data)) == 2){
? ? venn_list <- list(venn_data[,1], venn_data[,2])
? ? names(venn_list) <- colnames(venn_data)
? ? venn.diagram(venn_list, filename = paste0("venn_two_sets_plot.",imagetype), imagetype = imagetype, margin = 0.1, fill = c('red', 'blue'), alpha = 0.50, col = 'black', cex = 1, fontfamily = 'serif', cat.col = c('black', 'black'), cat.cex = 1, cat.fontfamily = 'serif', cat.default.pos = "outer")
? ? print("====================================================================")
? ? print("兩組的數(shù)據(jù)的venn圖繪制完成牙勘！")
? ? print("====================================================================")
? } else if (length(colnames(venn_data)) == 3){
? ? venn_list <- list(venn_data[,1], venn_data[,2], venn_data[,3])
? ? names(venn_list) <- colnames(venn_data)
? ? venn.diagram(venn_list, filename = paste0("venn_three_sets_plot.",imagetype), imagetype = imagetype, margin = 0.1, fill = c('red', 'blue', 'green'), alpha = 0.50, col = 'black', cex = 1, fontfamily = 'serif', label.col = c("darkred", "white", "darkblue", "white", "white", "white", "darkgreen"), col = "transparent", cat.cex = 1, cat.fontfamily = 'serif', cat.default.pos = "text", cat.pos = 0)
? ? print("====================================================================")
? ? print("三組的數(shù)據(jù)的venn圖繪制完成！")
? ? print("====================================================================")
? } else if (length(colnames(venn_data)) == 4){
? ? venn_list <- list(venn_data[,1], venn_data[,2], venn_data[,3], venn_data[,4])
? ? names(venn_list) <- colnames(venn_data)
? ? venn.diagram(venn_list, filename = paste0("Venn_four_sets_plot.",imagetype), imagetype = imagetype, col = "black", lty = "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")
? ? print("====================================================================")
? ? print("四組的數(shù)據(jù)的venn圖繪制完成所禀！")
? ? print("====================================================================")
? } else if (length(colnames(venn_data)) == 5){
? ? venn_list <- list(venn_data[,1], venn_data[,2], venn_data[,3], venn_data[,4], venn_data[,5])
? ? names(venn_list) <- colnames(venn_data)
? ? venn.diagram(venn_list, filename = paste0("venn_five_sets_plot.",imagetype), imagetype = imagetype, lty = "dotted", lwd = 2, col = "black", fill = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3", "orchid3"), alpha = 0.60, cat.col = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3", "orchid3"), cat.cex = 0.8, cat.fontface = "bold", margin = 0.07, cex = 0.8)
? ? print("====================================================================")
? ? print("五組的數(shù)據(jù)的venn圖繪制完成方面！")
? ? print("====================================================================")
? }
? ## 5.打印繪制韋恩圖所需要的R包版本信息和環(huán)境變量
? sessionInfo()
? ## 6.結(jié)果展示
## 7.說(shuō)明
顏色和數(shù)據(jù)都是可以自己根據(jù)需要進(jìn)行調(diào)整的，然后就是可以繪制的數(shù)據(jù)集的限制色徘，此維恩圖包只支持繪制5個(gè)數(shù)據(jù)集恭金，如果超出五個(gè)就需要用其他工具進(jìn)行可視化分析了，下期介紹如何使用R繪制花瓣圖褂策！此博文如對(duì)您有所幫助横腿，請(qǐng)點(diǎn)贊加關(guān)注，有問(wèn)題歡迎討論斤寂！
