R语言绘制维恩图ggvenn示例详解_R语言

> install.packages("ggvenn")
> library(ggvenn)

> set1<-read.csv("gene_a.csv")
> set2<-read.csv("gene_b.csv")
> set3<-read.csv("gene_c.csv")

> dat <- list( A = set1$gene_id,  B = set2$gene_id, C = set3$gene_id)

> ggvenn(dat)

> ggvenn(dat, c("A", "B")) 

> ggvenn(dat,show_percentage = T,
  stroke_color = "white",
  stroke_size = 0.5,
  fill_color = c("#E41A1C","#1E90FF","#FF8C00"),
  set_name_color =c("#E41A1C","#1E90FF","#FF8C00"), 
  set_name_size = 15,text_size=6)

> A_B <- as.data.frame(intersect(set1$gene_id, set2$gene_id))
> write.csv(A_B,"A_B_common_gene.csv",row.names = F)