Aynı pencerede üç venn diyagramı nasıl yazdırılır

Question

Bu üç venn şemasını bir araya getirmek istiyorum. Bu yüzden, onları yazdırdığımda, aynı sayfada

library(VennDiagram) 
df1 <- data.frame(G1=sample(1:100, 10), G2=sample(1:100, 10), 
        G3=sample(1:100, 10), G4=sample(1:100, 10)) 
venn.plot.df1 <- venn.diagram(x = as.list(df1), filename = NULL, 
          cat.col = c("black", "red",  "green3", "blue"), 
          fill=c("black", "red",  "green3", "blue")) 
grid.draw(venn.plot.df1) 

df2 <- data.frame(G1=sample(1:100, 10), G2=sample(1:100, 10), 
        G3=sample(1:100, 10), G4=sample(1:100, 10)) 
venn.plot.df2 <- venn.diagram(x = as.list(df2), filename = NULL, 
           cat.col = c("black", "red",  "green3", "blue"), 
           fill=c("black", "red",  "green3", "blue")) 
grid.draw(venn.plot.df2) 

df3 <- data.frame(G1=sample(1:100, 10), G2=sample(1:100, 10), 
        G3=sample(1:100, 10), G4=sample(1:100, 10)) 
venn.plot.df3 <- venn.diagram(x = as.list(df3), filename = NULL, 
           cat.col = c("black", "red",  "green3", "blue"), 
           fill=c("black", "red",  "green3", "blue")) 
grid.draw(venn.plot.df3) 

teşekkürler!

Answer 1

venn.diagram işlevi, gList nesnelerini döndürüyor.

library(gridExtra) 
grid.arrange(gTree(children=venn.plot.df1), gTree(children=venn.plot.df2), 
      gTree(children=venn.plot.df3), ncol=3)