Я строю степень вершины (количество падающих ребер) графа g
.
deg <- degree(g, v=V(g), mode = c("in"), loops = TRUE)
histdata <- hist( deg, breaks=1000, plot=FALSE )
plot(histdata$count, log="xy", type="p", col="blue", bg = "blue", pch=20,
xlim=c(1,max(deg)),
ylim=c(1,max(histdata$count)),
ylab="Frequency", xlab="Degree")
Этот код отображает этот график рассеяния ,
, который очень близок к тому, что мне нужно, но имеет несколько проблем:
1) метки x неверны, поскольку они не представляют градусы, а гистограмма нарушается.
2) стержни осей грязные. Как я могу удалить пустые?
3) как построить линию регрессии ? Я пробовал с abline
и lm(histdata$mids~histdata$count)
, но ничего не строится.
Спасибо за любую подсказку!
ОБНОВЛЕНИЕ : этот график, вероятно, совершенно неверный. См http://www.hpl.hp.com/research/idl/papers/ranking/ranking.html