我尝试使用igraph
包
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
图表吗?
答案 0 :(得分:0)
尝试,
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')
你必须稍微混淆边距(par(mar =)),以便图形占据整个空间。