R图形legenda和其他表中的标签颜色

我试图展示用户之间的关系（基于他们的角色），我想根据他们的团队为他们着色。我有以下代码

#get library's
install.packages("igraph")
library("igraph")
install.packages('reshape')
library(reshape)

#connecting to DB 
    data <- rxDataStep(dsSqlServerData)
    head(data)
    users <- rxDataStep(dsSqlServerData)
    head(users)
#making the matrix
data1<-cast(data, acentralacc ~ bcentralacc, value="rol",fun.aggregate= length)
net2 <- graph_from_incidence_matrix(data1)
net2.bp <- bipartite.projection(net2)
    head(net2.bp$proj1,4)
    head(net2)
#making the plot
pal2 <- rainbow(5, alpha=.5) 
#plot(net2.bp$proj1,margin = 0,vertex.size=5,vertex.label="",vertex.color=pal2) #only shows very little data points
plot(net2,margin = 0,vertex.size=5,vertex.label="",vertex.color=pal2)
legend("topleft", c(users$Team), pch=21,col="#777777", pt.bg=pal2, pt.cex=2, cex=.8, bty="n", ncol=1)

给情节上色，我需要每个小组都用同样的颜色

vertex.color=pal2

---

如果你能提供一个最小的可重复的例子，那就好了。我们无法访问与您相同的数据，因此我可以查看您的代码如何工作。您可能希望确保“rol”的顶点属性看起来像

V（net2）$rol

，然后可能会分配一个新的顶点变量

V（net2）$color=ifelse（V（g）$rol==…，'blue'，'red'）

。如果顶点属性为，则打印将自动打印颜色color@struggles谢谢你的回答，我意识到这个问题的形式不正确，我没有正确理解我的代码。我已经改变了一些事情，找到了一些解决方案，并为一个更具体的问题——传奇——写了一篇新的帖子。如果你感兴趣，你可以看看

vertex.color=pal2