为每个社区提取社区节点和其他节点之间的边列表

Question

假设我们有一个简单的加权网络，我们在其上执行某种社区检测。接下来我们提取特定的社区，最后的任务是提取该社区的节点与所有其他节点之间的所有边。

下面我贴了玩具代码

# Create toy graph
library(igraph)
set.seed(12345)
g <- make_graph("Zachary")
# Add weights to edges
E(g)$weight <- sample(x = 1:10, size = ecount(g), replace = TRUE)
# Run community detection
cl <- cluster_louvain(g)

有5个节点属于社区#1，12个节点属于社区#2，依此类推

> table(membership(cl))
 1  2  3  4 
 5 12  2 15

现在我们提取社区#1：

g1 <- induced_subgraph(g, which(cl$membership == 1))

问题：如何找到连接社区 #1 中的节点与所有其他节点的边（不包括定义社区 #1 的边）？

下面有一个与某个社区相关的答案

您首先获取基于您社区的所有边缘：

all_edges <- E(g)[inc(V(g)[membership(cl) == 1])]
all_edges
+ 10/78 edges:
 [1] 1-- 5 1-- 6 1-- 7 1--11 5-- 7 5--11 6-- 7 6--11 6--17 7--17

然后，过滤掉完全内部的（两个顶点都在社区内）：

all_edges_m <- get.edges(g, all_edges) #matrix representation

all_edges[!(
 all_edges_m[, 1] %in% V(g)[membership(cl) == 1] & 
   all_edges_m[, 2] %in% V(g)[membership(cl) == 1]
 )] # filter where in col1 and col2
+ 4/78 edges:
[1] 1-- 5 1-- 6 1-- 7 1--11

但对我来说，有必要获取包含每个社区的那些节点的整个列表。不仅是为了一个。是否有创建此循环的任何建议？如果是的话就太棒了:)

Answer 1

这是我对你的问题的看法：

library(igraph) 
set.seed(12345)
g <- make_graph("Zachary")
E(g)$weight <- sample(x = 1:10, size = ecount(g), replace = TRUE)
cl <- cluster_louvain(g)

将成员资格添加为顶点属性

V(g)$name <- membership(cl)

获取边缘列表

x <- as_edgelist(g, names = T)

这里是连接不同社区顶点的所有边

V(g)$name <- 1:vcount(g)
E(g)[x[,1] != x[,2]]

可选检查

 E(g)$color <- ifelse(x[,1] != x[,2], "red", "blue")
 plot(g, edge.color = E(g)$color)
 plot(cl, g)

为每个社区提取社区节点和其他节点之间的边列表

Extract a list of edges between community nodes and other nodes for each community

r

cluster-analysis

igraph