그래프를 파일로 작성하는 것에 지쳐서 출력 파일은 정점 이름을 보존하지 않습니다. 여기 코드입니다 :그래프에 파일을 쓰지 않고 꼭지점 이름을 유지하지 마십시오.
edgelist = read.csv("test.csv",header=FALSE,sep=",")
g = graph.edgelist(as.matrix(edgelist),directed=FALSE)
V(graph)$name <- V(graph)
graph <- delete.vertices(graph, which(degree(graph) < 1))
write.graph(g, "temp.txt", "edgelist")
test.csv :
1,11
1,22
2,11
2,33
3,22
3,33
4,44
temp.csv :
0 4
0 5
1 4
1 6
2 5
2 6
3 7
"edgelist"형식은 정점 이름을 사용하지 않습니다. 다른 형식을 사용하거나 직접 작성하십시오. 즉,'get.edgelist'를 사용하여 이름을 쿼리 한 다음'write'를 사용하십시오. –