PageRank算法

PageRank算法

#步骤1 加载R包

library(igraph)

library(dplyr)

library(printr)

#步骤2 数据集准备

g<-random.graph.game(n=10,p.or.m=1/4,directed=TRUE)

plot(g)

#步骤3 建立模型

pr<-page.rank(g)$vector

df<-data.frame(Object=1:10,PageRank=pr)

#步骤4 模型展示

arrange(df,desc(PageRank))