R граф легенды и метки цвета из другой таблицы - PullRequest
Новая
       8

R граф легенды и метки цвета из другой таблицы

0 голосов
/ 24 мая 2018

Я пытаюсь показать отношения между пользователями (основываясь на их ролях), и я хочу раскрасить их, основываясь на их команде.у меня есть следующий код: 

#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)

dataframe: данные: метаданные

  • acentralacc
  • rol
  • bcentralacc

dataframe: users: metadata

  • CentralAccount (такой же как центральный и центральный b)
  • Team

Одна из проблем, которые у меня есть, заключается в том, чтоУ меня есть много точек данных (3000 иш).

Моя попытка получить легенды с командами.Я предполагаю, что он не может представить легенду, так как не знает отношения между двумя таблицами 

legend("topleft", c(users$Team), pch=21,col="#777777", pt.bg=pal2, pt.cex=2, cex=.8, bty="n", ncol=1)

, окрашивающими сюжет, мне нужен один и тот же цвет для каждой команды 

vertex.color=pal2
...