在图形中取消命名顶点-R

Question

我有以下无向星形图：

> g2
IGRAPH 722b7c9 DN-- 5 8 -- 
+ attr: name (v/c)
+ edges from 722b7c9 (vertex names):
[1] V1->V2 V1->V3 V1->V4 V1->V5 V2->V1 V3->V1 V4->V1 V5->V1

我想变成哪个：

[1] 1->2 1->3 1->4 1->5 2->1 3->1 4->1 5->1 

我尝试将as_edgelist与names = FALSE结合使用以消除名称。

unnameGraph <- function(graphToPlot){

  edgeListG2 <- as_edgelist(graphToPlot, names = FALSE)

  return(make_graph(edgeListG2))

}

但是它给了我错误的边缘列表并破坏了星形图：

[1] 1->1 1->1 2->3 4->5 2->3 4->5 1->1 1->1

为什么？

Answer 1

el <- matrix(as.integer(gsub(pattern="V", "",x=as_edgelist(g2))), nc = 2, byrow = FALSE)
g3 <- graph_from_edgelist(el)
g3
plot(g3)