R维恩图错误-三维恩图

我正在努力画一个简单的维恩图，但我发现了一些我不理解的错误

与draw.triple.venn diagram函数的Rdocumentation中编写的代码相比，我无法找出下面代码中的错误所在-我认为代码很好

---

谢谢大家!

报告了此问题的错误。我试图重现这个例子，但我得到了同样的错误。如果您愿意尝试我的NVENR库，您可以得到如下图：

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中数字的基本原理。

---

还有其他数据输入模式。最简单的方法是提供一个列表列表，其中包含每个集合的元素，您可以在渐晕图的开头看到一个示例。软件包将为您计算图表中的所有区域，然后您可以查询属于每个区域的元素。

请在新的R会话中重试。当我尝试这个时，我得到了同样的错误，但是当我使用一个新的R会话时，它们消失了。这可能是与我加载的另一个包的名称空间冲突。不幸的是，错误消息仍然存在。我还尝试下载了最新版本的R。不知您是否介意与我分享输出？谢谢。在请一位同事试用后，我终于发现这也是一个bug。不幸的是，您的图对我来说太复杂了，因为我打算向非技术观众展示我的维恩图。对于我来说，一个非常简单的、非比例的维恩图就足够了。我设法使用一个名为“limma”的包创建了一个输出，但为此必须创建一个模拟数据。不管怎样，谢谢你的帮助。

Error in if (max.x - min.x >= max.y - min.y) { : 
 missing value where TRUE/FALSE needed
In addition: Warning messages:
1: In sqrt(r1^2 - (l.x.cept.13 - x.centres[1])^2) : NaNs produced
2: In sqrt(r1^2 - (l.x.cept.13 - x.centres[1])^2) : NaNs produced

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'))