维恩图比例和半透明的颜色阴影

我有以下types的计数数据。

A 450 B 1800 A and B both 230 

我想要像下面的维恩图一样开发一个丰富多彩的（可能是半透明的十字路口）。

注意：此图是在PowerPoint中手绘的示例，并不按比例。

Answer 1

这里是一个post，讨论维恩图从群集列表和共现因素 。

为便于解决scheme使用包装venneuler ：

 require(venneuler) v <- venneuler(c(A=450, B=1800, "A&B"=230)) plot(v) 

对于更高级的定制解决scheme，请检查包VennDiagram 。

Answer 2

根据Geek On Acid的第二个答案第二个build议（再次感谢），我也能够解决线问题。 我张贴如果这是相关的其他谷歌！

  require(VennDiagram) venn.diagram(list(B = 1:1800, A = 1571:2020),fill = c("red", "green"), alpha = c(0.5, 0.5), cex = 2,cat.fontface = 4,lty =2, fontfamily =3, filename = "trial2.emf"); 

Answer 3

我最近发表了一个新的R软件包eulerr ，它可以满足你的需要。 这与venneuler很相似，但没有不一致之处。

 library(eulerr) fit <- euler(c(A = 450, B = 1800, "A&B" = 230)) plot(fit, fill_opacity = 0.3) 

或者你也可以在jolars.co/eulerr上试用相同的r软件包

Answer 4

即使这不完全回答你的问题。 我认为这对其他想要绘制维恩图的人有用。 可以使用gplots包中的venn（）函数： http : //www.inside-r.org/packages/cran/gplots/docs/venn

 ## modified slightly from the example given in the documentation ## Example using a list of item names belonging to the ## specified group. ## require(gplots) ## construct some fake gene names.. oneName <- function() paste(sample(LETTERS,5,replace=TRUE),collapse="") geneNames <- replicate(1000, oneName()) ## GroupA <- sample(geneNames, 400, replace=FALSE) GroupB <- sample(geneNames, 750, replace=FALSE) GroupC <- sample(geneNames, 250, replace=FALSE) GroupD <- sample(geneNames, 300, replace=FALSE) venn(list(GrpA=GroupA,GrpB=GroupB,GrpC=GroupC,GrpD=GroupD)) 

之后我只是用插画添加颜色和透明度。

Answer 5

有一个直观而灵活的比例绘图仪，您可以下载并运行。 find它： http : //omics.pnl.gov/software/VennDiagramPlotter.php

和

jvenn ：一个互动的维恩图表浏览器 – GenoToul Bioinfo： http ://bioinfo.genotoul.fr/jvenn/

Answer 6

我知道OP询问R的解决scheme，但我想指出一个名为BioVenn的基于Web的解决scheme。 它最多需要3个元素列表，并绘制维恩图，以便每个表面与元素的数量成正比 – 就像这样：

在这个图表中，我手动（通过PhotoShop）更改了数字的位置，因为我不喜欢BioVennselect的位置。 但你可以select不要有数字。

从理论上讲，与BioVenn一起使用的列表应该由基因ID组成，但实际上并不重要 – 列表只需包含string。