построить сетевые данные относительно атрибута узла - PullRequest
Новая
       79

построить сетевые данные относительно атрибута узла

0 голосов
/ 18 июня 2020

У меня есть два набора данных, один для сети, другой для атрибута. Я добавил атрибут в набор данных, и я хочу построить подграф данных, я получил подграф данных, когда атрибут сектор = 1, затем я хотел построить данные относительно атрибута Citations, для размера и цвета узла, но мой сюжет неверен, я думаю, может ли кто-нибудь мне помочь?

https://drive.google.com/file/d/1MZCdeAZF0joIQLwVeoVXmKpf7r8IJ2wq/view?usp=sharing https://drive.google.com/file/d/1I96BAUo8TjJMWCWpn_SIhp54snfZ0Bd5/view?usp=sharing

b<-as.network(PrinFull)
b
#transform to igraph
g <- graph.adjacency(as.matrix(b))
g
#set attribue from data frame to matrix
for(cn in colnames(PRIN)) {
  g = set_vertex_attr(g, cn,  1:nrow(PRIN), value=PRIN[,cn])
}
g
#transform to network
k<-asNetwork(g)
k

l <- get.inducedSubgraph(k,
                         which(k %v% "Sector" == "1"))
#plot
rescale <- function(nchar,low,high) {
  min_d <- min(nchar)
  max_d <- max(nchar)
  rscl <- ((high-low)*(nchar-min_d))/(max_d-min_d)+low
  rscl
}
#install.packages("RColorBrewer")
library("RColorBrewer")
deg <- degree(l,gmode="graph")
my_pal <- brewer.pal(8,"Dark2")
rolecat <- as.factor(get.vertex.attribute(l,"Citations"))
plot(l,vertex.cex=rescale(deg,1,115),
     vertex.col=my_pal[rolecat])
...