如何保留Igraph中节点的位置和名称C

Question

考虑到How to keep position of nodes in igraph + R，我有一个四个顶点id（0,1,2,3），名称（1,2,3,4）和位置（0,0,0,1,1,1，1,0），举个简单的例子，我想消除顶点id（1）， 并保留其他的位置和名称。下一个代码将演示一个绘图实现来调试它。我必须做几个消除，同时保持其他顶点的位置和名称，如何在C中做到这一点？基于第9章图形

#include <igraph.h> 
#include <fstream> 
#include <iostream> 
#include <stdlib.h> 

#include <vector> 
#include <algorithm> 
#include <map> 
#include <set> 

using namespace std; 


void plot(igraph_t g) { 
     FILE *ofile; 
     ofile=fopen("test.txt", "w+"); 
     igraph_write_graph_edgelist(&g,ofile); 
     fclose (ofile); 

     ofstream gp("data.R"); 
     gp << "library(igraph)"<<endl; 
     gp << "library(Cairo)"<<endl; 
     gp << "g1 <-read.table(\"test.txt\")"<< endl; 
     gp << "g1 <- t(as.matrix(g1))"<< endl; 
     gp << "g<-graph(g1,n=4,dir=FALSE)"<< endl; 
     gp << "V(g)$name<-c(1:4)"<< endl; 
     gp << "V(g)$label<-V(g)$name"<< endl; 
     gp << "V(g)$id<-c(0:3)"<< endl; 
     gp << "coords <- c(0,0,0,1,1,1,1,0)"<< endl; 
     gp << "coords <- matrix(coords, 4,2,byrow=T)"<< endl; 
     gp << "plot(g,layout=coords[V(g)$name,])"<< endl; 
     gp.close(); 

     system("R CMD BATCH data.R"); 
} 


int main() { 


     igraph_t g; 
     igraph_vector_t v; 


     igraph_vector_init(&v,8); 
     VECTOR(v)[0]=0; VECTOR(v)[1]=1; 
     VECTOR(v)[2]=1; VECTOR(v)[3]=2; 
     VECTOR(v)[4]=2; VECTOR(v)[5]=3; 
     VECTOR(v)[6]=3; VECTOR(v)[7]=0; 

     igraph_create(&g, &v, 0,0); 

     //plot(g); 

     igraph_delete_vertices(&g,igraph_vss_1(1)); 

     plot(g); 


     igraph_destroy(&g); 
     igraph_vector_destroy(&v); 

     return 0; 
} 

编辑程序，顶点和边属性（陶）：

我编辑的程序，现在我把名字，但如何在这些顶点名称的功能获得边缘和然后写在igraph_write_graph_edgelist（& g，ofile）？

#include <igraph.h> 
#include <fstream> 
#include <iostream> 
#include <stdlib.h> 

#include <vector> 
#include <algorithm> 
#include <map> 
#include <set> 

#include <string.h> 
#include <stdlib.h> 

using namespace std; 

void plot(igraph_t g) { 
     FILE *ofile; 
     ofile=fopen("test.txt", "w+"); 
     igraph_write_graph_edgelist(&g,ofile); 
     fclose (ofile); 

     ofstream gp("data.R"); 
     gp << "library(igraph)"<<endl; 
     gp << "library(Cairo)"<<endl; 
     gp << "g1 <-read.table(\"test.txt\")"<< endl; 
     gp << "g1 <- t(as.matrix(g1))"<< endl; 
     gp << "g<-graph(g1,n=4,dir=FALSE)"<< endl; 
     gp << "V(g)$name<-c(1:4)"<< endl; 
     gp << "V(g)$label<-V(g)$name"<< endl; 
     gp << "V(g)$id<-c(0:3)"<< endl; 
     gp << "coords <- c(0,0,0,1,1,1,1,0)"<< endl; 
     gp << "coords <- matrix(coords, 4,2,byrow=T)"<< endl; 
     gp << "plot(g,layout=coords[V(g)$name,])"<< endl; 
     gp.close(); 

     system("R CMD BATCH data.R"); 
} 


int main() { 
     igraph_i_set_attribute_table(&igraph_cattribute_table); 

     igraph_t g; 
     igraph_vector_t v; 


     igraph_strvector_t vnames1,vnames2; 





     igraph_vector_init(&v,8); 
     VECTOR(v)[0]=0; VECTOR(v)[1]=1; 
     VECTOR(v)[2]=1; VECTOR(v)[3]=2; 
     VECTOR(v)[4]=2; VECTOR(v)[5]=3; 
     VECTOR(v)[6]=3; VECTOR(v)[7]=0; 

     igraph_create(&g, &v, 0,0); 


     igraph_strvector_init(&vnames1, 0); 
     igraph_strvector_init(&vnames2, 0); 


     SETVAS(&g, "name", 0, "1"); 
     SETVAS(&g, "name", 1, "2"); 
     SETVAS(&g, "name", 2, "3"); 
     SETVAS(&g, "name", 3, "4"); 



     //plot(g); 



     igraph_delete_vertices(&g,igraph_vss_1(1)); 
     plot(g); 

     VASV(&g,"name",&vnames2); 

     long int i; 
     for (i=0; i<igraph_strvector_size(&vnames2); i++) { 
      printf("%s ", STR(vnames2, i)); 
     } 

     igraph_destroy(&g); 
     igraph_vector_destroy(&v); 

     return 0; 
} 

在此先感谢

vacing

Answer 1

附上姓名和任何相关信息，使用顶点属性的节点;这些将在删除后保留。

参见文档的相关章节：Chapter 9. Graph, Vertex and Edge Attributes