#Install the latest version of this package by entering the following in R:
install.packages("remotes")
remotes::install_github("js229/Vennerable")
导入测试数据,StemCell数据为4个基因list.
library(Vennerable)
data(StemCell)
str(StemCell)
Vstem3<-Vstem[, c("OCT4", "SOX2", "NANOG")]
plot(Vstem3, doWeights = FALSE)
此外,还可以根据集合的大小改变圈圈的大小:
plot(Vstem3,doWeight = TRUE)
除了常规的圆圈,还可以用三角形取交集:
plot(Vstem3,type="triangles")
Vstem <- Venn(StemCell)
plot(Vstem, doWeights = FALSE,type="ellipses")
此外,还有各种不同的表现方式: 1.squares
plot(Vstem, doWeights = FALSE,type="squares")
2.ChowRuskey
plot(Vstem, doWeights = FALSE,type="ChowRuskey")
3.AWFE
plot(Vstem, doWeights = FALSE,type="AWFE")