Wie Position von Knoten in IGRAPH halten + R

Question

Wenn ich das Diagramm haben und ich die Position mit einem Vektor der Knoten Koordinaten:

---

library(igraph) 
library(Cairo) 

g9<- graph(c(0,1,0,2,0,3,1,4,1,2,3,4,3,5,4,5,5,2),n=6,dir=FALSE) 
V(g9)$name<-c(1:6) 
V(g9)$label<-V(g9)$name 
coords <- c(0, 0, 1.00000000000000, 0,0.500000000000000, 0.866025403784439, 0.300000000000000, 0.200000000000000, 0.441421356237309, 0.341421356237310,0.248236190979496,0.393185165257814) 
coords <- matrix(coords, 6,2,byrow=T) 
plot(g9,layout=coords) 

---

Nun, wenn ich die folgende add Code muss ich wieder das Koordinaten Layout gesetzt:

---

vc<-c(0,1,1,2,2,3,3,1) 
gp<-graph(vc,dir=FALSE); 
listSub<-graph.get.subisomorphisms.vf2(g9,gp) 

m<-matrix(c(unlist(listSub)),length(listSub),length(unique(vc)),byrow=T) 
md<-m[!duplicated(m[,1]),] 

g<-delete.vertices(g9,c(m[1,2])) 

dev.new() 

coord <- c(0, 0, 1.00000000000000, 0,0.500000000000000, 0.866025403784439, 0.441421356237309, 0.341421356237310,0.248236190979496,0.393185165257814) 
coord <- matrix(coord, 5,2,byrow=T) 
plot(g,layout=coord) 

---

Wie mache ich diese Layout-Positionen zum Standard - so dass ich Änderungen an der Struktur des Graphen vornehmen kann, ohne die entsprechende Position für jeden Namen zu verlieren?

---

Answer 1

Sie konnten die anfängliche coord Matrix halten und extrahieren nur die für die Subgraphen benötigten Zeilen.

plot(g9, layout = coords[ V(g9)$name, ]) 
plot(g , layout = coords[ V(g)$name, ])