我猜你的使用出了问题gsub
。下面是我处理这个问题的方法。
# Your vector of unique names
nms <- c("BARC", "WFC", "ISP" ,"TPEIR" ,"BCP" ,"SAB" ,"BNP", "CBK" ,"BKIR")
创建具有与示例中相同的顶点名称的小图
library(igraph)
g <- random.graph.game(length(nms), 0.5)
V(g)$name <- nms
创建查找表以将名称与颜色相匹配:这将颜色分配给唯一的顶点名称
lookup <- setNames(
c("slategrey", "red", "purple", "lightblue", "green", "yellow", "blue", "black", "orange"),
nms)
# have a look at object
lookup
# BARC WFC ISP TPEIR BCP
# "slategrey" "red" "purple" "lightblue" "green"
# SAB BNP CBK BKIR
# "yellow" "blue" "black" "orange"
然后我们可以使用子集([
) 将它们分配给顶点颜色属性
V(g)$color <- lookup[V(g)$name]
# have a look at what is produced
V(g)$color
# [1] "slategrey" "red" "purple" "lightblue" "green"
# [6] "yellow" "blue" "black" "orange"
哪个产生
PS,我无法重现你的gsub
结果:代码运行正常
# Your vector of unique names
nms <- c("BARC", "WFC", "ISP" ,"TPEIR" ,"BCP" ,"SAB" ,"BNP", "CBK" ,"BKIR")
nms = gsub("BARC", "slategrey", nms )
nms = gsub("BNP", "blue", nms )
nms = gsub("CBK", "black", nms )
nms = gsub("WFC", "red", nms )
nms = gsub("BKIR", "orange", nms )
nms = gsub("ISP", "purple", nms )
nms = gsub("TPEIR", "lightblue", nms )
nms = gsub("SAB", "yellow", nms )
nms = gsub("BCP", "green", nms )
# look at result
nms
# [1] "slategrey" "red" "purple" "lightblue" "green" "yellow" "blue"
# [8] "black" "orange"