R eulerr 包 - 显示错误的欧拉图

Question

我正在尝试使用 R 包 eulerr 创建欧拉图。我正在使用以下代码:

vd <- euler(c(A = 54, B = 22, C = 53, D= 26 ,"A&B" = 20, "A&C" = 29, "A&D"=10, "B&C" = 16, "B&D"=5, "C&D"=7,"A&B&C" = 14, "A&B&D"=5, "A&C&D"=4, "B&C&D"=3,"A&B&C&D"=3),input = c("union"), shape="ellipse")

plot(vd, labels = c("A", "B", "C","D"), main = "Databases",Count=TRUE, quantities = TRUE)

我得到以下结果: 但是生成的欧拉图是错误的:

• 并非所有 B 都应包含在 A 中
• B一共应该是22(图中只显示总数为20)
• C 总共应该是 53(不是 51)

我该如何解决这个问题或者这是一个包错误？

error_plot 显示如下:区域错误: 残差:

不幸的是，残差图没有显示残差。尽管如此，缺失的案例仍显示在下面的“正常”残差统计中。

        original fitted residuals regionError
A             15     15         0       0.004
B              0      0         0       0.000
C             19     19         0       0.005
D             13     13         0       0.003
A&B            4      4         0       0.001
A&C           14     14         0       0.003
A&D            4      4         0       0.001
B&C            2      0         2       0.022
B&D            0      0         0       0.000
C&D            3      3         0       0.001
A&B&C         11     11         0       0.003
A&B&D          2      2         0       0.000
A&C&D          1      1         0       0.000
B&C&D          0      0         0       0.000
A&B&C&D        3      3         0       0.001

diagError: 0.022 
stress:    0.004 

Answer 1

关于如何解决问题，这取决于您想要的精确度。来自nVenn算法，我编写了 nVennR 包来创建准比例欧拉图。根据链接中提到的注意事项，您可以表示更多的集合并显示每个区域的相对大小。在你的例子中，

library(nVennR)
myV <- createVennObj(nSets = 4, sNames = c('A', 'B', 'C', 'D'), sSizes = c(0, 26, 53, 7, 22, 5, 16, 3, 54, 10, 29, 4, 20, 5, 14, 3))
myV <- plotVenn(nVennObj = myV)

结果是:

根据您的要求，这可能并不令人满意。比例是在圆圈的面积上，而不是区域(你可以看到区域 1、2、3、4 - A&B&C&D - 有空白空间。但是，这种策略克服了 Johan 提到的这些表示中规则形状的局限性Larsson。如果你有兴趣，在 vignette 中有更多详细信息。