#install.packages("venn")
library(venn)
#ls("package:venn")
# 构造数据
all_genes <- paste0("gene",1:1000)
gene_lst1 <- sample(all_genes, 200, replace = FALSE)
gene_lst2 <- sample(all_genes, 300, replace = FALSE)
gene_lst3 <- sample(all_genes, 400, replace = FALSE)
venn_data <- list(gene_lst1,gene_lst2,gene_lst3)
### 1. venn包画图
# 画venn diagram
venn(
venn_data,
snames = c("set1", "set2", "set3"), # 重命令
zcolor = "style", # add color
opacity = 0.25,
ellipse = F)
### 2. VennDiagram包画图
#install.packages("VennDiagram")
library(VennDiagram)
#ls("package:VennDiagram")
## This function takes a list and creates a publication-quality TIFF Venn Diagram
venn.plot <- venn.diagram(
x = venn_data,
euler.d = TRUE,
filename = "Euler_3set_scaled.jpeg",
category.names = c('set1','set2','set3'),
fill=c("red", "blue", "green"),
cex = 2.5,
cat.cex = 2.5,
cat.pos = 0
)
R语言绘制韦恩(venn)图
最新推荐文章于 2024-05-15 14:15:40 发布