R中的Igraph：如何基于边缘属性更改边缘颜色

我试图在R中生成一个Igraph。 现在，我希望边缘颜色依赖于边缘属性-部门。 我不能使用ifelse语句，因为部门值可以是动态的。我可以找到独特部门的数量，但我不确定如何进一步为不同部门创建不同的边缘颜色

    department= unique(edges$department)
    department.count=length(department)

示例代码：

    gg <- graph.atlas(711)
    V(gg)$name=1:7
    gg=set_edge_attr(gg,"Department",E(gg)1:10],c("A","B","C","A","E","C","G","B","C","A"))
    E(gg)$label=E(gg)$Department
    plot(gg)

---

gg发布时，您应该提供一个小的可复制示例。也就是说，您应该能够通过设置边的“颜色”属性来实现这一点：

E(testgraph)$color <- as.factor(edges$department)

E（testgraph）$color我已经添加了有问题的代码。我尝试了下面的代码，我能够生成不同的颜色，但颜色非常浅，我无法区分边缘。添加行
E（gg）$color