उसी विंडो में तीन वेन आरेखों को मुद्रित करने के लिए कैसे करें

Question

मैं इन तीन वेन आरेखों को एक साथ रखना चाहता हूं। इसलिए जब मैं उन्हें प्रिंट करता हूं, तो वे उसी पृष्ठ में दिखाई देते हैं

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) 

धन्यवाद!

Answer 1

venn.diagram फ़ंक्शन gList ऑब्जेक्ट्स लौटा रहा है। ऐसा लगता है जिस तरह से उन्हें व्यवस्था करने के लिए पहली बार उन्हें gTree वस्तुओं में बदलने और फिर grid.arrange समारोह के साथ प्लॉट करने के लिए है कि:

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