delete_edges的行为很奇怪

Question

我正试图从图表中删除一条边。

我运行了以下代码

library(igraph)

A <- c(0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,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,
            1, 0.309017, -0.809017,-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,.5),
                    rgb(.8,.55,0),
                    rgb(.8,0,0)),
     vertex.size = 20,
     layout = coords,
     main = paste("Graph", toString(1)))

并产生了以下内容

​

​

我希望删除1->2边，但保留2 ->3边.对于正在发生的事情和如何解决它，有什么想法吗？

Answer 1

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的边缘。

Answer 2

delete_edges(g, get.edge.ids(g, c(1,2)))

将删除顶点1和2的边缘事件。