Redessiner le diagramme de venn

Question

Quel serait le moyen le plus simple de redessiner un diagramme de Venn en utilisant R? Je n'ai pas de données qui ont été utilisées pour générer le diagramme de venn mais le reste des diagrammes ont été dessinés dans R ... Je voudrais garder la même structure, cela signifie que je dois le redessiner en R.

vous avez une idée de ce qui serait le moyen le plus facile de le faire?

C'est un code que j'ai utilisé pour d'autres diagrammes de Venn.

v1 <- venn.diagram(list(1=a, 2=b, 3=c, 4=d), filename=NULL, fill=rainbow(4), cex.prop=NULL, cex=1.5) 
png("TEST.png", width=7, height=7, units='in', res=150) 
grid.newpage() 
grid.draw(v1) 
dev.off() 

Answer 1

Vous pouvez appeler directement les fonctions draw.venn. * Et les zones de chevauchement d'entrée. Ce sera fastidieux mais je pense que c'est votre seule option. vous remarquerez que l'ordre des groupes est différent, il y a peut-être un moyen de contrôler cela, mais je ne suis pas sûr de ce que c'est en ce moment.

a <- c(2411, 12433,939,238, 1575,2483,2923,540) 
b <- c(1575, 2483,2923, 540, 1255, 1330, 615, 622) 
c <- c(1247, 1330, 2483, 12433, 150, 615, 2923, 939) 
d <- c(150,615,2923,939, 1245, 622, 540, 238) 


draw.quad.venn(area1 = sum(a), area2 = sum(b), area3 = sum(c), area4 = sum(d), 
       n12 = sum(a[5:8]), n13 = sum(a[c(2,3,6,7)]), n14 = sum(a[c(3,4,7,8)]), 
       n23 = sum(b[c(2,3,6,7)]), n24 = sum(b[c(3,4,7,8)]), 
       n34 = sum(c[5:8]), 
       n123 = sum(a[6:7]), 
       n134 = sum(a[c(3,7)]), 
       n124 = sum(a[7:8]), 
       n234 = sum(b[c(3,7)]), 
       n1234 = 2923, category = c("A","B","C","D"), 
       fill = colorspace::rainbow_hcl(4), 
       col = colorspace::rainbow_hcl(4)[c(1,3,4,2)], lwd = rep(1, 4)) 

Answer 2

Avez-vous essayé le paquet diagramme de Venn

https://cran.r-project.org/web/packages/VennDiagram/VennDiagram.pdf

et voir cela aussi

Venn Diagrams with R?