Присвоение результатов пейджерам к распределению закона о мощности

Question

Я рассчитал значения pagerank для сети гиперссылок веб-сайтов (около 1000 узлов). Я сделал это в R, используя пакет igraph.

Теперь я хотел бы получить 10 лучших значений для pagerank и визуализировать эти 10 лучших сайтов по графику закона мощности, чтобы дать представление о том, где они расположены на графике.

Как бы я взял эти результаты и построил их по графику закона мощности (например, чтобы проиллюстрировать, какие сайты расположены дальше по длинному хвосту).

Я просто пытаюсь выяснить общую формулу или технику.

Значения является следующим:

0.0810 
0.0330 
0.0318 
0.0186 
0.0161 
0.0160 
0.0158 
0.0149 
0.0136 
0.0133 

Answer 1

Как я хотел бы сделать это, чтобы построить плотность соединения и перекрывают участок с верхними 10 очков.

Если у вас есть подключение всех узлов уже:

d <- density(connectivity) 
top10 <- sort(connectivity, decreasing=TRUE)[1:10] 

# get the height of the density for each of the top10 nodes: 
top10y <- sapply(top10, function(node) { 
    diffs <- abs(node - d$x) 
    yloc <- which(diffs == min(diffs))[1] # in case more than one match 
    d$y[yloc] 
}) 

# now plot 
plot(d) 
points(top10, top10y, col="red") 

Например, я смоделировал связь 1000 узлов следовать нормальному распределению: