为三角形中的每条边着色（IGRAPHE）

我想使用

R

中的

igraph

为图形中的三角形着色。下面的图

g

是蝴蝶结形状，我想给这两个三角形涂上不同的颜色

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)

库（igraph）
边向量
颜色
颜色如何为两个具有公共边的三角形着色？如何为两个具有公共边的三角形着色？
T <- matrix(triangles(g), nrow=3)
print(T)
##      [,1] [,2]
## [1,]    3    3
## [2,]    1    4
## [3,]    2    5

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)