疊加多個圖形在同一圖

Question

我嘗試使用gridExtra包

require(igraph) 
require(gridExtra) 
er_graph <- erdos.renyi.game(100, 5/100) 
coords<-layout.fruchterman.reingold(er_graph) 
grid.newpage() 
pushViewport(viewport(layout = grid.layout(1, 2))) 
plot(er_graph,layout=coords, vertex.label=NA, vertex.color='red',main='red graph') 
plot(er_graph,layout=coords, vertex.label=NA, vertex.color='blue',main='blue graph') 

繪製多個igraph圖中一個數字，但結果卻是兩個獨立的圖表，而不是兩個圖形的網格。
任何想法如何在同一圖上繪製多個igraph圖？

Answer 1

嘗試，

par(mfrow=c(2,1)) 
plot(er_graph,layout=coords, vertex.label=NA, vertex.color='red',main='red graph') 
plot(er_graph,layout=coords, vertex.label=NA, vertex.color='blue',main='blue graph') 

你必須與利潤率（參數（MAR =））有點亂，使圖形佔據了整個空間。