在 Igraph 中使用顶点标签删除边

Question

我是 R 的新手。我有一个 igraph 图形对象，我随机将顶点标记为 TRUE 或 FALSE。有没有办法删除两个标记为 TRUE 的顶点或两个标记为 FALSE 的顶点之间的边？

这是我的代码：

g <- read_graph("grph.graphml", format = c("graphml"))
num_of_edges <- gorder(g)
random_list <- sample(c(TRUE,FALSE), num_of_vertices, TRUE) 
V(g)$label <- random_list

Answer 1

您的代码引用了我们没有的文件 "grph.graphml"，因此我无法使用您的示例。相反，我将使用随机图来说明。

## Generate random graph
library(igraph)
set.seed(1234)
g = erdos.renyi.game(15, 0.2)

## Your code to generate labels
random_list <- sample(c(TRUE,FALSE), gorder(g), TRUE) 
V(g)$label <- random_list

您可以编写一个小函数来测试边的末端是否具有相同的标签并将其应用于所有边。然后把两端相同的删掉

SameLabel = function(e) {
    V(g)[ends(g, e)[1]]$label == V(g)[ends(g, e)[2]]$label }
g2 = delete_edges(g, which(sapply(E(g), SameLabel)))

您可以通过绘制来检查它是否在做正确的事情。

set.seed(1066)
LO = layout_with_fr(g)
par(mfrow=c(1,2), mar=c(1,1,1,1))
plot(g, layout=LO, frame=TRUE)
plot(g2, layout=LO, frame=TRUE)

其中一些看起来是错误的，因为远距离节点之间的链接落后于相反类型的其他节点。

在 Igraph 中使用顶点标签删除边

Removing edges using vertex Labels in Igraph

r

graph

igraph

vertices

edges