R中的面积比例3路维恩图答案

【问题标题】：Area proportional 3-way Venn Diagram in RR中的面积比例3路维恩图
【发布时间】：2018-02-27 15:33:50
【问题描述】：

我阅读了很多关于在 R 中创建维恩图的主题。Is it possible to create a proportional triple Venn Diagram 谈到了使用 eulerr 包。 Venn diagram proportional and color shading with semi-transparency 非常全面，确实帮助我完成了许多我需要的其他图表。

虽然上面的线程很棒，但我相信上面的线程仍然没有解决一个问题。当三组的交集代表整个区域的很大一部分时，就会发生这种情况。就我而言，R&S&W 占总面积的 92%。因此，该图是难以察觉且丑陋的。有什么办法可以解决这个问题吗？

这是我的数据和代码：

dput(Venn_data)
structure(c(94905288780.4383, 3910207511.54001, 2615620176.44757, 
1125606833.85568, 187542691.618916, 104457994.331746, 96049675.0823557
), .Names = c("R&S&W", "R&S", "S&W", "S", "R", "W", "R&W"))

VennDiag2 <- eulerr::euler(Venn_data,shape="ellipse")
windows()
plot(VennDiag2)

这是输出：

我看不到什么是 R&S、S&W、R、S、W 等。

我也试过venneuler 包。

这是我的代码：

windows()
 v<-venneuler(Venn_data)
 plot(v)

不幸的是，这也没有帮助。这是输出。

有什么办法可以解决这个问题吗？我不是专家，所以我想在这里问。我真诚地感谢任何帮助。我已经为此花费了好几个小时，但仍然无法使其正常工作。

【问题讨论】：

VennDiagram 允许您设置标签的位置（内部、外部、距离、角度）和颜色，但是它采用的面积和交点值不是您的数据格式，所以您我必须调整它。

标签： r ggplot2 plot venn-diagram eulerr

【解决方案1】：

您始终可以自己检索绘图参数并使用箭头或其他方式定位标签，但另一种选择是使用图例而不是标签。

plot(VennDiag2, legend = TRUE)

不过，欧拉图在这里是否有很大用处，这有点值得怀疑。

【讨论】：

【解决方案2】：

我几个月前发布的 nVennR 包中有一个不同的可视化策略：

library(nVennR)
v <- createVennObj(nSets = 3, sNames = c('R', 'S', 'W'), sSizes = c(0, 104457994.331746, 1125606833.85568, 2615620176.44757, 187542691.618916, 96049675.0823557, 3910207511.54001, 94905288780.4383))
v <- plotVenn(nVennObj = v)

我没有预料到需要如此大量的数字，而且我看到它们被裁剪了。但是，结果是矢量图（svg），之后可以对图片进行编辑。您可以在vignette 中找到更多详细信息，包括为什么这些数字按此顺序排列。该包还可以处理更多的集合。

【讨论】：