можете построить сеть на графика

мой бинарный график основан на edgelist. каждая вершина-это тикер на фондовых рынках (например : ба= барклая)

    net_full_phase1=graph.edgelist(full_phase1, directed=false)v(net_full_phase1)$color=v(net_full_phase1)$namev(net_full_phase1)$size=degree(net_full_phase1)v(net_full_phase1)$color=gsub("barc", "slategrey", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("bnp", "blue", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("cbk", "black", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("wfc", "red", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("bkir", "orange", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("isp", "purple", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("tpeir", "lightblue", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("sab", "yellow", v(net_full_phase1)$color)v(net_full_phase1)$color=gsub("bcp", "green", v(net_full_phase1)$color) plot(net_full_phase1, layout=layout.fruchterman.reingold)

я получаю эту ошибку :

ошибка <p>в символы(х = координаты[, 1], г = координаты[, 2], бг = вершины.цвет : ном де колорита 'wfred' incorrecte</п>

unique(as.character(v(net_full_phase1)$name))

просто бежал, вот результат :

"barc"  "wfc"   "isp"   "tpeir" "bcp"   "sab"   "bnp"   "cbk"   "bkir" 
table(v(net_full_phase1)$color)

я тоже побежал : с результатом :

black blue bredp green lightblue purple red redir slategrey wfred yellow

почему не р учитывая некоторые цвета как "bredp", "перенаправителя", "wfred"?