R Venn图误差-三重venn图

Question

我很难画出一个简单的Venn图，我得到了一些我不明白的错误。

与用draw.triple.venn图函数编写的Rdocumentation相比，我无法计算代码中的错误(下面)--在我看来，这段代码很好(https://www.rdocumentation.org/packages/VennDiagram/versions/1.6.20/topics/draw.triple.venn)。

library(VennDiagram)
library(gridExtra)

body(draw.triple.venn)[[78]] <- substitute(cell.labels <- paste0(areas," : ", round( 100*areas/sum(areas), 1), "%"))
# this line of code adds %s to each of the cells in the Venn Diagram

g <- draw.triple.venn(
    area1 = 2951, 
    area2 = 2764, 
    area3 = 2764,
    n12 = 719, 
    n23 = 807, 
    n13 = 1034, 
    n123 = 325,
    category = c("Mental Health", "Community", "Social Care"),
    fill = c("blue", "red", "green"), 
    cat.col = c("blue", "red", "green"), 
    lty = "blank",
    euler.d = TRUE, 
    scaled = TRUE, 
    cex = 2, 
    cat.cex = 2);

grid.arrange(gTree(children = g), main = "Breakdown of WSIC Service Users", sub = "By table")

我得到的错误消息(但无法理解它的含义)是：

在if (max.x - min.x >= max.y - min.y) {：除了需要真/假的情况下缺少值:警告消息: 1:在sqrt(r1^2 - (l.x.cept.13 - x.centres1)^2)中出错: NaNs生成2: In sqrt(r1^2 -(l.x.cep.13- x.centres1)^2)：NaNs生成

谢谢!

Answer 1

据报道，此问题这里存在一个bug。我试着复制了这个例子，我也得到了同样的错误。如果您愿意尝试我的nVennR库，您可以得到如下的图表：

library(nVennR)
myV <- createVennObj(nSets = 3, sNames = c("Mental Health", "Community", "Social Care"), sSizes = c(0, 598, 913, 807, 873, 1034, 719, 325))
myV <- plotVenn(nVennObj = myV, borderWidth = 2, setColors = c('blue', 'red', 'green'))

结果是一个SVG文件：

​

有一些可视化参数，如您在格列奈特中所看到的。在这里，您还可以在sSizes中找到数字的基本原理。还有其他的数据输入模式。最简单的方法是提供一个包含每组元素的列表列表(在vignette开头可以看到一个例子)。包将为您计算图表中的所有区域，然后您可以查询属于每个区域的元素。