igraph でページランク test.net 1 2 3 4 2 1 k<-read.table("directedkan.net") g<-graph.data.frame(k) page<-page.rank(g) pagerank<-(page)$vector s<-get.vertex.attribute(g,"name") s<-V(g) d1<-data.frame((s)$name,pagerank) write.table(d1,file="…