未加权图的Graphlets计算

Question

我在r中使用igraph库。它提供了graphlets函数来计算r中图的graphlet。但它仅适用于未加权的图形。如果我想计算下面未加权图的图谱，该怎么办？

library(igraph)
g2 <- graph.formula(A:B - A:C, X:Z - X:Y - X:B, C:Z , C:X )
g2
plot(g2)

然后如何找到未加权的图g2的graphlet和graphlet计数。

Answer 1

以下是基于?graphlets的示例：

library(igraph)
set.seed(1); par(mfrow=c(2,2))
g2 <- graph.formula(A:B - A:C, X:Z - X:Y - X:B, C:Z , C:X )
E(g2)$weight <- 1
lo <- layout.auto(g2)
gl2 <- graphlets(g2)

plot(g2, layout=lo)
for (i in 1:length(gl2$cliques)) {
  V(g2)$color <- "white"
  V(g2)[gl2$cliques[[i]]]$color <- "red"
  plot(g2, layout=lo)
}

您可能需要查看?graphlets中的示例以添加例如边缘权重。