r - 有没有办法在 igraph 中对代码方向性进行颜色编码？

Question

我有一些数据显示人与人之间的 Twitter 联系(即在推文中标记其他用户的人)，我想绘制出人与人之间的联系。在某些情况下，这种关系是相互的，因为两个人都标记了另一个，而有些人被标记了但没有发推文。

在下面的示例中，A 标记了 B 和 C，而 C 只标记了 B。箭头是单向的，从 A -> C 和从 C -> B，但在两者之间是双向的Person A <-> Person B. 是否可以使这些箭头具有不同的颜色？

library(igraph)

df <- data.frame (from = c("Person A", "Person A", "Person B", "Person C"),
              to = c ("Person B", "Person C", "Person A", "Person B"),
              weight = c (1, 3, 4, 5)
              )

g_1 <- graph.data.frame(df, 
                    directed = TRUE) 

set.seed(123)
plot (g_1,
  edge.width = E(g_1)$weight)

Answer 1

可以选择指定 E 的 color 参数的边颜色，并且可以通过 is.mutual() 找到互易边> 功能:

E(g_1)$color <- "grey50"
E(g_1)$color[is.mutual(g_1)] = "red"
plot(g_1, edge.width = E(g_1)$weight)