Vennerable绘制维恩图颜色比较丑如何自己设置颜色

Vennerable绘制维恩图颜色比较丑如何自己设置颜色。

例如绘制韦恩图:

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

attachments-2018-07-BcJldEbG5b3c4619d770d.jpg


自行修改颜色,当然type还有"circles","squares","triangles","ellipses","AWFE","ChowRuskey","AWFE".类型包括圆形,椭圆形等,这里绘制的是方形的维恩图,修改颜色代码如下,多维的以此类推:

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)


得到结果:

attachments-2018-07-aWV7ZXKm5b3c4656847dd.jpg

  • 发表于 2018-07-04 12:02
  • 阅读 ( 9184 )
  • 分类:R

0 条评论

请先 登录 后评论
omicsgene
omicsgene

生物信息

702 篇文章

作家榜 »

  1. omicsgene 702 文章
  2. 安生水 351 文章
  3. Daitoue 167 文章
  4. 生物女学霸 120 文章
  5. xun 82 文章
  6. rzx 78 文章
  7. 红橙子 78 文章
  8. CORNERSTONE 72 文章