Diagramme de Venn de la taille du cercle d'échelle en fonction de la proportion relative

Question

Je trace un diagramme de Venn en utilisant la fonction draw.triple.venn()library(VennDiagram). Ceci est mon code dans R:

g = draw.triple.venn(
    area1 = 4.1, area2 = 5.6, area3 = 15.9, n12 = 1.3,n23 = 4.2, n13 = 2.3, n123 = 1.2, 
    category = c("Land use", "Environment", "Space"), lwd = c(1.2, 1.2, 1.2), lty = c(1, 1, 1), 
    fill = c("darkgray", "gray", "lightgrey"), alpha = c(0.8, 0.8, 0.8), 
    cat.pos = c(330, 30, 150), cat.dist = c(0.06, 0.06, 0.05), sigdig=2, cex=2, cat.cex=2, 
    print.mode = c("raw", "percent"), cat.fontfamily = rep("serif", 3), margin = 0.01, 
    ind = T) 
    grid.arrange(gTree(children=g)) 
    grid::grid.text("Residual variance: 80.8%", x=0.18, y=0.03, gp=gpar(col="black", fontsize=16, fontfamily="serif", fontface=1)) 

Ceci est le chiffre actuel:

Ma question, est-il possible à l'échelle de la taille du cercle par la proportion relative?

C'est un lien vers le paquet https://cran.r-project.org/web/packages/VennDiagram/VennDiagram.pdf

Merci beaucoup pour tout conseil.

Answer 1

bibliothèque à l'aide (eulerr)

VennDiag <- euler(c("A" = 1.8, "B" = 1.5, "C" = 10.6, "A&B" = 0, "B&C" = 3.0, 
        "A&C" = 1.1, "A&B&C" = 1.2)) 
plot(VennDiag, counts = TRUE, font=1, cex=1, alpha=0.5, 
    fill=c("grey", "lightgrey", "darkgrey")) 

Il est livré avec cette estimation d'erreur:

> VennDiag 
     original fitted residuals region_error 
A   1.8 1.776  0.024  0.002 
B   1.5 1.471  0.029  0.002 
C   10.6 10.597  0.003  0.005 
A&B  0.0 0.210 -0.210  0.011 
A&C  1.1 1.158 -0.058  0.002 
B&C  3.0 3.024 -0.024  0.000 
A&B&C  1.2 1.145  0.055  0.003 

diag_error: 0.011 
stress:  0