Ausgang Venn GLIST Objekt und Netzwerk-Plot side-by-side

Question

Wie können wir Netzwerkstück (IGRAPH Paket Grundstück) und Venn-Diagramm (Mengendiagramm GLIST Objekt) Seite an Seite in einer PDF-Seite plotten?

Versuchte unten Lösungen zu folgen, hat nicht funktioniert:
Plot gList side by side
Plot 2 tmap objects side-by-side
Side-by-side Venn diagram using Vennerable

Hier ist ein Beispiel, die sie in zwei Seiten aufgetragen ist. Ich habe grid.newpage() verwendet, um es in separaten Seiten zu plotten, sonst wird es übereinander geplottet.

library(grid) 
library(igraph) 
library(VennDiagram) 

#network graph object 
relations <- data.frame(from=c("Bob", "Cecil", "Cecil", "David", 
           "David", "Esmeralda"), 
         to=c("Alice", "Bob", "Alice", "Alice", "Bob", "Alice")) 
g <- graph_from_data_frame(relations, directed=TRUE) 

# venn plot object 
plotVenn <- venn.diagram(
    list(A = 1:150, B = 121:170), 
    filename = NULL) 
class(plotVenn) 
# [1] "gList" 

# output to PDF, outputs into 2 pages, I need 1 page 2 plots side-by-side 
pdf("temp.pdf") 

#network 
igraph::plot.igraph(g) 

#venn 
grid.newpage() 
grid.draw(plotVenn) 

dev.off() 

Answer 1

Inspiriert von den ersten Link oben, können Sie "Trick" Ihren Weg, indem sie koexistieren eine "reguläre" plot und grid:

pdf("temp.pdf",) 
layout(matrix(1:2, nrow=1)) 
igraph::plot.igraph(g) 
plot.new() 
pushViewport(viewport(layout = grid.layout(1, 2, widths=unit(c(0.5, 0.5), "npc")))) 
pushViewport(viewport(layout.pos.col = 2)) 
grid.draw(plotVenn) 
popViewport(0) 
dev.off() 

Answer 2

Kam mit nach unten Lösung folgenden Links in den Kommentaren: Venn diagrams in multiple figure

pdf("temp.pdf") 

layout(matrix(1:2, 1, byrow = TRUE)) 
#network 
igraph::plot.igraph(g) 

#network 
frame() 
vps <- baseViewports() 
pushViewport(vps$inner, vps$figure, vps$plot) 
grid.draw(plotVenn) 
popViewport(2) 

dev.off()