Jak ładnie zwizualizowac pośredniczenie krawędzi w igraphie w R dla pliku my.mat – czystej macierzy
raw.data<-read.table(„my.mat”,header=FALSE, sep=” „)
mat<-as.matrix(raw.data)
library(igraph)edgelist<-data.frame(od=0,do=0,ile=0)
e.count=0;
for(i in 1:dim(mat)[1]){
for(j in 1:dim(mat)[2]){
if(mat[i,j]>0){
e.count<-(e.count+1);
edgelist[e.count,1]<-i;
edgelist[e.count,2]<-j;
edgelist[e.count,3]<-mat[i,j];
}
}
}my.net<-graph.data.frame(edgelist, directed=TRUE, vertices=NULL)
posr<-edge.betweenness(my.net)E(my.net)$edgb<-posr
E(my.net)$color<-„grey”
E(my.net)$width<-posr/100
E(my.net)[edgb > 1000]$color<-„red”
tkplot(my.net)
coords<-layout.kamada.kawai(my.net,dim=3)
rglplot(my.net,layout=coords)
efekt:
Żniwiarz 