igraph delete_edges行为异常

问题描述

我正在尝试从图中删除边。

我运行了以下代码

library(igraph)

A <- c(0,1,0)
dim(A) <- c(5,5)
g1 <- graph_from_adjacency_matrix(t(A),mode = c("directed")) 

g1 <- delete_edges(g1,c(1,2))
g1 <- simplify(g1)

coords <- c(0.0,0.951056,0.587785,-0.587785,-0.951056,0.309017,-0.809017,0.309017)
dim(coords) <- c(5,2)

plot(g1,vertex.color=c(rgb(0,.5,.7),rgb(.15,.6,0),rgb(.5,.5),rgb(.8,.55,0)),vertex.size = 20,layout = coords,main = paste("Graph",toString(1)))

并产生了以下

我希望删除1-> 2边，但保留2-> 3边。关于正在发生的事情以及如何解决的任何想法？

解决方法

delete_edges函数假定您正在传递边缘索引。您可以通过

看到边缘

E(g1)
# + 5/5 edges from faf79f6:
# [1] 1->2 2->3 3->4 4->5 5->1

因此，当您指定c(1,2)时，您是在指定第一条和第二条边，而不是从顶点1到2的边。如果您想这样做，则可以这样做

g1 <- delete_edges(g1,E(g1)[1 %--% 2])

另一种方法是

g1 <- g1 - edge("1|2")

如果确实要提取其边的顶点平方，则可以使用E（）函数的P=参数。例如

g1 <- delete_edges(g1,E(g1,P=c(1,2,3,4)))

这将删除从1到2，从3到4的边。