Edge属性颜色不生效：已注册正确属性但绘图显示错误颜色

已正确注册igraph的边颜色属性，但绘图时显示颜色与设置不符。

代码片段： #

x <- BrM_afterdiagnosis_centrality_urb[BrM_afterdiagnosis_centrality_urb$visitlink == i,]
g <- graph.data.frame(x[,c(1,2)], directed = FALSE) %>%
  set_vertex_attr("urban", index = x$ahaid, value = x$urban) %>%
  set_vertex_attr("color", index = x$ahaid, value = c(x$colors_top)) %>%
  set_vertex_attr("color", 1, "white")
E(g)$color <- as.factor(x$database_color)
plot(g, vertex.label=NA)

属性查询结果： #

使用get.edge.attribute查询边颜色，返回结果正确：

> get.edge.attribute(g)
$color
[1] deepskyblue deepskyblue deepskyblue
Levels: deepskyblue

绘图异常表现： #

绘图时边显示为黄色（如下所示）：

内容的提问来源于stack exchange，提问作者ltong