这里介绍一个绘制韦恩图的R包Vennerable 可以实现,例如绘制维恩图代码:
library(Vennerable) data(StemCell) w <- Venn(Sets=StemCell[1:2]) plot(w, type="circles")
例如,我想得到韦恩图当中,219,404,875背后的基因ID信息,这些信息都存储在w这个变量中:
其中01变号就对应了不同的分组基因的数量,背后的信息存储在w变量的 IntersectionSets当中
想得到ID信息可以使用以下代码,注意w为S4类型的变量,取值要用@符号,当然我这里只举例两组的韦恩图,其他3-9类的位图都可以类似实现:
w@IntersectionSets$`10`
w@IntersectionSets$`01`
w@IntersectionSets$`11`
如果觉得我的回答对您有用,请随意打赏。你的支持将鼓励我继续创作!