删除R中的顶点

我正在使用igraph并尝试删除几个顶点。当我尝试删除顶点77时，我看到与它连接的顶点78被删除，而不是77本身

library(graph)

out <- read.csv("~/Downloads/adj/out.adjnoun_adjacency_adjacency", sep="")

out.network<-graph.data.frame(out,directed = FALSE)

x<-delete_vertices(out.network,c(77))

plot(x)

库（图形）
这个方法奏效了

数据1你确定顶点
#78
被删除了吗
igraph
顶点索引始终是连续的，因此如果删除
#77
前一个
#78
将成为新的
#77
，图形将不再具有
#78
。我们可以用一个顶点属性来演示这一点，该属性对应于删除之前的索引。下面的示例验证删除
#77
后原始顶点是否具有索引
#77
：

library(igraph)

g <- barabasi.game(n = 78, m = 3)

V(g)$original_index <- seq(1:vcount(g))

V(g)$original_index

V(g)$original_index[77]
[1] 77

g <- delete.vertices(g, c(77))

V(g)$original_index[77]
[1] 78

库（igraph）
g请编辑您的帖子，使其成为可复制的示例，例如
库（igraph）；结实。种子（1）；g
错误：。。。无法打开文件“C:/Users/Rene/Downloads/adj/out.adjnoun_adjacency_adjacency”：没有这样的文件或目录
，这是我的本地文件…我使用RNo中的“导入”选项导入，没有人拥有该文件，因此错误是不可再现的，并且该问题没有它可能的帮助。我在前面的评论中向您展示了如何创建示例图。此外，您没有提供正在使用的igraph软件包版本。我认为在旧版本中，索引从0开始，而在新版本中，索引从1开始。可能是错误的想法仍然无法解决。。。您给出的上述代码不会将顶点77作为一个整体删除。当我绘制图形时，我仍然可以看到77，这不是原来的77，而是原来的78。您可以通过使用原始标签打印来轻松检查这一点：
plot（g，vertex.label=V（g）$original\u index）
。为了进一步确认，您可以指定一个唯一的颜色或检查连接，您将看到删除后的77是原来的78。