Przerysowywanie diagramu venna

Question

Jaki byłby najprostszy sposób na przerysowanie diagramu venna za pomocą R? Nie mam danych, które zostały użyte do wygenerowania diagramu venna, ale pozostałe diagramy zostały narysowane w R ... Chciałbym zachować tę samą strukturę, więc oznacza to, że muszę jakoś ją przerysować w R.

masz pojęcie, jaki byłby najłatwiejszy sposób na zrobienie tego?

To jest kod, którego używam do innych diagramów 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

Możesz zadzwonić bezpośrednio do funkcji draw.venn. * I nakładania nakładek. To będzie żmudne, ale myślę, że to twoja jedyna opcja. zauważysz, że kolejność grup jest inna, być może istnieje sposób, żeby to kontrolować, ale nie jestem pewien, co to jest w tej chwili.

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

próbowałeś pakiet diagram Venna

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

i zobaczyć to zbyt

Venn Diagrams with R?