我想在不更改结果图中的顶点ID的情况下提取子图。 我在Miserables图上工作，链接可用： http://www-personal.umich.edu/~mejn/netdata/lesmis.zip 我尝试过：
network <- read.graph("lesmis.gml", format = "gml")
g <- subgraph.edges(network, which(E(network)$value = 1))
但是ID在结果子图中从1开始编号。 我如何保留旧图的ID？