12.1、PageRank实例

实例一：PageRank在R中的应用

1、加载R包：

> library(igraph)

> library(dplyr)

 

2、随机生成具有10个对象的有向图：

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

igraph包中的random.graph.game()函数或者erdos.renyi.game(n, p.or.m,directed)函数：根据Erdos-Renyi模型生成随机图形。n为图中的顶点数；p.or.m为以任意两点为边的概率或者图中的边数；directed图是否将被引导，默认为F。

 

> class(g)

[1]"igraph"

> g

IGRAPH D--- 10 26 --Erdos renyi (gnp) graph

+ attr: name (g/c),type (g/c), loops (g/l), p (g/n)

+ edges:

 [1] 4-> 1  8-> 1 10-> 1  4-> 2 6-> 2  3->10  6-> 3 8-> 3  9-> 3

[10]  2-> 4 2-> 5  4-> 5  5->10 2-> 6  3-> 6  5-> 6 2-> 7  4-> 7

[19]  6-> 7 7->10  1-> 8  4-> 8 5-> 8  2-> 9  7-> 9 10-> 9

 

3、画有向图：

> plot(g)

 

4、计算PageRank：

> pr <-page.rank(g)

igraph包中的page.rank(graph)函数：PageRank算法。graph对象。

 

> pr

$vector

 [1] 0.13658175 0.05204791 0.199281490.02384814 0.02790233

 [6] 0.11644844 0.06089605 0.143054330.10645844 0.13348112

$value

[1] 1

$options

NULL

> str(pr)

List of 3

 $ vector : num [1:10] 0.1366 0.052 0.19930.0238 0.0279 ...

 $ value : num 1

 $ options: NULL

> summary(pr)

        Length Class  Mode  

vector  10    -none- numeric

value    1    -none- numeric

options  0    -none- NULL  

 

5、显示每个对象的PageRank：

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

> df

   Object  PageRank

1       1 0.13658175

2       2 0.05204791

3       3 0.19928149

4       4 0.02384814

5       5 0.02790233

6       6 0.11644844

7       7 0.06089605

8       8 0.14305433

9       9 0.10645844

10     10 0.13348112

> arrange(df, desc(PageRank))      按PageRank降序排列

   Object  PageRank

1       3 0.19928149

2       8 0.14305433

3       1 0.13658175

4      10 0.13348112

5       6 0.11644844

6       9 0.10645844

7       7 0.06089605

8       2 0.05204791

9       5 0.02790233

10      4 0.02384814

dplyr包中的arrange(.data,…)函数：按变量排列成行，可以使用desc来降序排列变量。