在Vennerable软件包中手动设置venn图的颜色

嗨，我想能够手动分配颜色。 比如说

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

库（可恢复）
数据（干细胞）
w这一部分记录在维涅利渐晕图（vignette（“维涅特”）、第2.3节图形参数和维涅特姆手册页（？维涅特姆）

您想要进行的自定义要求您使用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)

擦去板岩。否则，您将在Venn图的顶部绘制Venn。
这一部分记录在Vennerable vignette（vignette（“Venn”）、第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)

擦去板岩。否则，您将在维恩图的顶部绘制维恩图。
太好了。它起作用了！你知道主题创建后是否可以重用它吗。我唯一能想到的可能就是把它包装成一个函数，然后重用它。不管怎样，很酷，谢谢。我不确定。由于gp依赖于compute.venn（venn（…）创建的venn对象，所以我猜您不能只在任何给定的venn对象上重新应用gp，除非它非常相似（可能数字略有不同，但在其他方面相同），即使这样，我也不确定。例如，gp包含多少个圆，并且对象由多少个重叠组成。只需检查gp的内容，看看它包含什么，然后简单地尝试一下。再次感谢。我最终将它包装成一个简单的函数，这样我所要做的就是提供两个向量。太好了。它可以工作了！你知道它是否可以重用吗主题创建后。我唯一能想到的可能是将其包装为函数并重用它。无论如何，很酷，谢谢。对此不确定。因为gp依赖于compute.venn（venn（（…）创建的venn对象，我想你不能在任何给定的venn对象上重新应用gp，除非它非常相似（数字可能略有不同，但在其他方面相同），即使这样，我也不确定。例如，gp包含有多少个圆，对象由多少个重叠组成。只需检查gp的内容，看看它包含什么，然后简单地重试。再次感谢。我最终将其包装成一个简单的函数，以便我所要做的就是提供两个向量。