install.packages("ggVennDiagram")
library("ggVennDiagram")
library(ggplot2)
mydata2<-list(G1,G2,G3,G4,G5,G6)
p=
ggVennDiagram(mydata2,label="count",label_alpha=0,
category.names=c("G1","G2","G3","G4","G5","G6")) +
scale_fill_gradient(low="white",high= "white") +
theme(legend.position = "none")
ggsave(p, filename="ALL/out_venn_G.pdf")
label = "percent" # 只显示百分比
网友评论