So drucken Sie drei Venn-Diagramme im selben Fenster

Question

Ich möchte diese drei Venn-Diagramme zusammenstellen. Wenn ich sie drucke, erscheinen sie auf der gleichen Seite.

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) 

danke!

Answer 1

Die venn.diagram Funktion gibt gList Objekte zurück. Es scheint, dass die Art und Weise, sie zu ordnen, zuerst sie zu gTree Objekten umwandeln und dann mit der grid.arrange Funktion plotten:

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