三角形（igraph）の各辺に色をつけてください

Question

Rにigraphを使ってグラフの三角形を色付けしたいと思います。下のグラフgには蝶ネクタイの形があり、2つの三角形を別々に色付けしたいと思います。

library(igraph) 
edge_vector <- c(1, 2, 1, 3, 2, 3, 3, 4, 3, 5, 4, 5) 
g <- make_undirected_graph(edge_vector) 
g 
plot(g) 

次のように私は、各列が三角形で3つの頂点を構成する場合、三角形を識別することができます。

列をループ

T <- matrix(triangles(g), nrow=3) 
print(T) 
##  [,1] [,2] 
## [1,] 3 3 
## [2,] 1 4 
## [3,] 2 5 

、すなわち、各三角形について、私は、数値対（例えば、3,1と3,2と1,2）のように三角形の3つのエッジを形成することができるが、どのように、次に実行することができますたとえば、エッジのルックアップをE(g)に入れて、各エッジのカラー属性を設定することができますか？

大きなグラフでは、エッジが複数の三角形で表示されることがありますが、この単純なケースではどのように行うかを知りたいと思います。

Answer 1

colors <- c("blue", "red") 
for (i in seq(ncol(T))){ 
    E(g, c(T[1, i], T[2, i], 
     T[1, i], T[3, i], 
     T[2, i], T[3, i]))$color <- colors[i] 
} 
plot(g)