代码之家  ›  专栏  ›  技术社区  ›  Ahdee

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

  •  1
  • Ahdee  · 技术社区  · 7 年前

    例如

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

    生产 enter image description here

    对于当前的软件包,这可能吗?我试着设置gpar,但它似乎没有做任何特别的事情。

    谢谢

    1 回复  |  直到 7 年前
        1
  •  4
  •   4rj4n    7 年前

    其中一部分内容记录在可恢复渐晕图(渐晕图(“Venn”)、第2.3节图形参数和VennThemes手册页(?VennThemes)中

    您想要进行的定制需要使用compute。Venn()是对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”,它包含所有可视化设置,如在上面的代码中更改的Venn填充,以及线条、文本等的颜色。玩得开心。

    library(grid)
    grid.newpage()
    

    擦去板岩。否则,您将在维恩图的顶部绘制维恩。