加權圖的小波計算

Question

我在r中使用igraph庫。它提供了graphlets函數來計算r中圖形的圖表。但它只適用於未加權的圖。如果我想計算以下未加權圖形的圖形小節怎麼辦？

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

那麼如何找到未加權的圖g2的圖和小圖點數。

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到例如添加邊緣權重。