手动设置Venn图中的维恩图颜色

问题描述:

嗨我希望能够手动分配颜色。 例如手动设置Venn图中的维恩图颜色

library(Vennerable) 
data(StemCell) 
    w <- Venn(Sets=StemCell[1:2]) 
    plot(w, type="squares") 

产生 enter image description here

但是我会做的是manaully改变颜色,OCT4 =红色,重叠=棕色和Sox2 =绿色什么? 这是可能与当前包?我尝试设置gpar,但它并没有特别做任何事情。

谢谢! 一个

的本部在Vennerable小插曲是记录(暗角(“维恩”)),第2.3节图形参数和VennThemes手册页(?VennThemes)

,你想拥有定制要求您使用Venn()附加的compute.Venn()来计算适当的图表,然后您可以使用VennThemes()进行自定义。

您需要定制的代码看起来是这样的:

w <- compute.Venn(Venn(Sets=StemCell[1:2]), type = "squares") 
gp <- VennThemes(w) 
gp[["Face"]][["11"]]$fill <- "brown" 
gp[["Face"]][["01"]]$fill <- "green" 
gp[["Face"]][["10"]]$fill <- "red" 
plot(w, gp = gp) 

Customized Venn plot

你可以看一下对象“GP”,包含所有可视化设置,比如维恩的填补被改变在上面的代码中,还有线条,文字等的颜色。玩得开心玩耍。

顺便说一句,在小插曲,他们利用格包

library(grid) 
grid.newpage() 

的擦拭石板。否则,你将维恩绘制在维恩图上。

+0

这很棒。有用!你知道一旦创建它的主题是否可以重复使用。我能想到的唯一可能就是把它作为一个函数包装起来,然后重用它。无论如何,很酷的感谢。 – Ahdee

+0

不确定。由于gp依赖于由compute.Venn(Venn((...))创建的venn对象,我猜测你不能只重新应用任何给定的维恩对象上的gp,除非它非常相似(可能略有不同的数字,但除此之外同样的),然后我不确定,例如gp包含了多少个圆圈和对象组成的重叠,只要检查一下gp的内容就可以看到它包含的内容,然后简单地尝试一下 – 4rj4n

+0

再次感谢。把它包装成一个简单的函数,这样我所要做的就是提供两个向量。 – Ahdee