의견에 링크 된 질문의 코드를 사용하면 한 그래프에서 위치를 가져 와서 다른 그래프에서 사용할 수 있습니다. 옆에
# Graphs - tweaked the node names
g1 = graph.ring(5)
V(g1)$name=letters[1:5]
g1 = g1 - V(g1)[1]
g2 = graph.ring(5)
V(g2)$name=letters[2:6]
g2 = g2 - V(g2)[2]
# graph layouts
# g1
set.seed(1)
layg1 <- layout.fruchterman.reingold(g1)
# g2
set.seed(2)
layg2 <- layout.fruchterman.reingold(g2)
# overwrite coords for shared nodes
layg2[which(V(g2)$name %in% V(g1)$name), ] <-
layg1[which(V(g1)$name %in% V(g2)$name),]
xlim <- range(c(layg1[,1], layg2[,1]))
ylim <- range(c(layg1[,2], layg2[,2]))
플롯 측
par(mfrow=c(1,2))
plot(g1 , vertex.size=50, layout=layg1, xlim=xlim, ylim=ylim, rescale=FALSE)
plot(g2 , vertex.size=50, layout=layg2, xlim=xlim, ylim=ylim, rescale=FALSE)
또는 다른 색상 노드 중 하나 개 세트와 내가 그들을 플롯하면, 그들은 보를 모십니다
V(g2)$color <- "red"
E(g2)$color <- "red"
plot(g1 , vertex.size=50, layout=layg1, xlim=xlim, ylim=ylim, rescale=FALSE)
plot(g2 , vertex.size=30, layout=layg2, xlim=xlim, ylim=ylim, rescale=FALSE, add=T)
가장자리 노드에는 1-4라는 노드가 있습니다. 아마도'graph.ring'이이 예제에서 사용하는 것이 최선의 방법이 아니겠습니까? – MrFlick
[This] (http://stackoverflow.com/questions/24301992/how-to-fix-nodes-when-plotting-a-subset-over-a-complete-network-using-igraph-r#comment37559179_24301992) 도움? – user20650
@MrFlick 새로운 것을 시도하십시오 – yliueagle