R中的四维维恩图？

我试图让一个4路维恩图中R. 我有这个数据，我希望把图中：R中的四维维恩图？

enter image description here

谁能给我一个建议，怎么办呢？我尝试使用函数vennDiagram（）但不起作用，因为它是一个4way图。

我也试图使用包VennDiagram，但真正混淆了数据被“分配”到图中正确位置的方式。我正在使用这个代码：

library (VennDiagram) 
venn.diagram(
    x=list(
    I=c(1:18,19:31,32:119,125:129,130:192,193:144,145:326,327:373), 
    VI=c(516:542,510:515,420:497,498:509,145:326,327:373,130:192,193:144), 
    II=c(19:31,32:119,145:326,327:373,374:378,378:419,420:497,498:509), 
    III=c(506:509,378:419,32:119,125:129,130:192,145:326,420:497,510:515) 
    ), 
    filename = "4Way_Venn.tiff", 
    col = "black", 
    lty = "dotted", 
    lwd = 4, 
    fill = c("cornflowerblue", "green", "yellow", "darkorchid1"), 
    alpha = 0.50, 
    label.col = c("orange", "white", "darkorchid4", "white", "white", "white", 
        "white", "white", "darkblue", "white", "white", "white", 
        "white", "darkgreen", "white"), 
    cex = 2.5, 
    fontfamily = "serif", 
    fontface = "bold", 
    cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4"), 
    cat.cex = 2.5, 
    cat.fontfamily = "serif" 
    );

任何人都可以帮助我吗？也许使用更简单的解决方案，然后使用VennDiagram软件包。

来源

2012-04-11 Peiska

不Vennerable对于R支持吗？我使用Python和gnuplot编写了一个解决方案。乐于分享。 – 2013-07-16 15:27:27

我可能在这里错过了一点，但我不确定你想如何使用这些“计数”来制作你的维恩图？

require(venneuler) 
#here I replicate your data 
#because it's repeatable, you can use `rep` function to generate it 
c1 <- rep(c(0,1),each=8) 
c2 <- rep(c(0,1),each=4,times=2) 
c3 <- rep(c(0,1),each=2,times=4) 
c4 <- rep(c(0,1),times=8) 
#put your data into matrix 
m <- as.matrix(data.frame(C1=c1,C2=c2,C3=c3,C4=c4)) 
#plot it 
v = venneuler(m) 
plot(v)

enter image description here

来源

2012-04-11 19:03:07

Counts是每种情况发生的次数，它是数据的汇总，它应该在图中。例如，在数据中有26次，所有的c1，c2，c3和c4的值都是0 – Peiska 2012-04-11 19:27:09

@Peiska：好吧，我明白你的意思了。当我有更多时间时，会尝试修改它。 – 2012-04-12 11:26:25

我不认为这解决了这个问题，但也许http://stackoverflow.com/questions/30638610/how-to-draw-venn-diagram-using-6-sets/31148761#31148761会有所帮助。 – timelyportfolio 2015-07-01 01:40:28

只是要小心：从列“C1”到“C4”，你可以使用venneuler包很容易让维恩图我试图建立4（或更高版本）十字维恩图中支持这种能力的情侣套装，并且在至少一种情况下子空间未被正确地绘制。例如，完全包含在另一个子集中的一个子集的一部分区域延伸到父子集之外。不幸的是，我不记得哪个软件包做到了。
所以，我的回答是：尝试venneuler作为GOA说，尝试require(sos); ???venn，并务必仔细测试每个包，以确保它正确渲染交叉。

来源

2012-04-11 19:18:53

的文氏图封装具有4路维恩一个功能，即draw.quad.venn（）函数：

http://cran.r-project.org/web/packages/VennDiagram/VennDiagram.pdf

来源

2014-08-08 09:45:46 spleen

R中的四维维恩图？

回答

相关问题