R中具有eulerr的欧拉图

Question

我正在尝试使用R中的eulerr包绘制维恩图。

library(eulerr)

vd <- euler(c("gen"=7,"RC"=1,"PP"=2,"Mixed"=5,"None"=12,"gen&PP"=30,
          "gen&PP&RC"=6,"PP&RC"=2,"gen&RC"=6),
        shape="circle");

检查我得到的vd对象的值

                     original fitted residuals regionError
gen                         7  7.690    -0.690       0.008
RC                          1  1.482    -0.482       0.006
PP                          2  2.327    -0.327       0.004
Mixed                       5  5.172    -0.172       0.001
None                       12 12.412    -0.412       0.003
gen&RC                      6  5.641     0.359       0.006
gen&PP                     30 30.942    -0.942       0.007
gen&Mixed                   0  0.000     0.000       0.000
gen&None                    0  0.000     0.000       0.000
RC&PP                       2  0.000     2.000       0.028
RC&Mixed                    0  0.000     0.000       0.000
RC&None                     0  0.000     0.000       0.000
PP&Mixed                    0  0.000     0.000       0.000
PP&None                     0  0.000     0.000       0.000
Mixed&None                  0  0.000     0.000       0.000
gen&RC&PP                   6  6.387    -0.387       0.004
gen&RC&Mixed                0  0.000     0.000       0.000
gen&RC&None                 0  0.000     0.000       0.000
gen&PP&Mixed                0  0.000     0.000       0.000
gen&PP&None                 0  0.000     0.000       0.000
gen&Mixed&None              0  0.000     0.000       0.000
RC&PP&Mixed                 0  0.000     0.000       0.000
RC&PP&None                  0  0.000     0.000       0.000
RC&Mixed&None               0  0.000     0.000       0.000
PP&Mixed&None               0  0.000     0.000       0.000
gen&RC&PP&Mixed             0  0.000     0.000       0.000
gen&RC&PP&None              0  0.000     0.000       0.000
gen&RC&Mixed&None           0  0.000     0.000       0.000
gen&PP&Mixed&None           0  0.000     0.000       0.000
RC&PP&Mixed&None            0  0.000     0.000       0.000
gen&RC&PP&Mixed&None        0  0.000     0.000       0.000

diagError: 0.028 
stress:    0.004 

因此，由于RC&PP的拟合值为0.000，因此它不会出现在最终的绘图结果中。是否可以修改此值，使交叉点显示在图形中？

Answer 1

这个问题看起来类似于this one。正如Johan Larsson所说，这类问题对于eulerr算法来说是困难的。如果你想尝试一下nVennR，你可以：

> library(nVennR)
> myV <- createVennObj(nSets = 5, sNames = c("gen","RC","PP","Mixed","None"))
> myV <- setVennRegion(myV, c("gen"), 7)
> myV <- setVennRegion(myV, c("RC"), 1)
> myV <- setVennRegion(myV, c("PP"), 2)
> myV <- setVennRegion(myV, c("Mixed"), 5)
> myV <- setVennRegion(myV, c("None"), 12)
> myV <- setVennRegion(myV, c("gen", "PP"), 30)
> myV <- setVennRegion(myV, c("gen", "PP", "RC"), 6)
> myV <- setVennRegion(myV, c("PP", "RC"), 2)
> myV <- setVennRegion(myV, c("gen", "RC"), 6)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV)
> myV <- plotVenn(nVennObj = myV) 

有意重复最后一条命令以压缩结果：

​

​

你可以查看vignette了解更多信息。