Question

我有一张图表，我按如下方式计算了学位分布和学位：

library(igraph) # for these two functions

dd <- degree_distribution(graph) 
d <- degree(graph)

由此，我估计Power Law，看看我的发行是否符合“权力法则”：

degree = 1:max(d)
probability = dd[-1]

nonzero.position = which(probability != 0)
probability = probability[nonzero.position]
degree = degree[nonzero.position]

reg = lm(log(probability) ~ log(degree))
cozf = coef(reg)

power.law.fit = function(x) exp(cozf[[1]] + cozf[[2]] * log(x))

由此，我使用ggplot2绘制了点和幂律。导致以下图像：

df <- data.frame(x = degree, y = probability)
  print(
      ggplot(df, aes(x,y,colour="Distribuição"))+
        geom_point(shape = 4) +
        stat_function(fun = power.law.fit, geom = "line", aes(colour="Power Law"))+

        labs(title = "Grafo", subtitle = "Distribuição dos Graus",
             x="K", y="P(k)", colour="Legenda")+
        scale_color_brewer(palette="Dark2")
  )

PowerLaw and Data

正如您所看到的，我的发行版并未遵循Power Law！我想在同一图表上估计泊松分布和图。尽管我不确定我的发行版是否跟随（或跟随）Poisson，但我想将它与Power Law一起绘制。我不知道如何从数据中估计这个分布（泊松），并计算平均度。

任何人都可以帮助我吗？

用于计算分布的图形和度数非常大（70万个顶点），所以我没有放置图形的数据。答案的解释可以基于任何图表。

Answer 1

来自?dpois：

泊松分布具有密度

p（x）=λ^ x exp（-λ）/ x！

表示 x = 0,1,2，... 。均值和方差是 E（X）= Var（X）=λ。

所以我将生成一些带有秘密lambda的伪数据：

mysecret <- ####

x <- data.frame(xes = rpois(50, mysecret))

> x$xes
 [1] 0 2 2 1 1 4 1 1 0 2 2 2 1 0 0 1 2 3 2 4 2 1 0 3 2 1 3 1 2 1 5 0 2 3 2 1 0 1 2 3 0 1 2 2 0 3 2 2 2 3


> mean(x$xes)
[1] 1.66
> var(x$xes)
[1] 1.371837

因此我的秘密lambda的两个好猜测是1.66和1.37。我们来试试吧：

library(ggplot2)
ggplot(x, aes(xes)) + 
  geom_histogram(aes(y = ..density.., color = "Raw data"), 
                 fill = "white", binwidth = 1, center = 0, size = 1.5) +
  stat_summary(fun.y = dpois, aes(x = xes, y = xes, color = "Density based on E(X)"), 
               fun.args = list(lambda = 1.66), geom = "line", size = 1.5) +
  stat_summary(fun.y = dpois, aes(x = xes, y = xes, color = "Density based on Var(X)"), 
               fun.args = list(lambda = 1.37), geom = "line", size = 1.5)

他们都很不错。您不能真正使用内置stat_function或geom_density来生成这些，因为泊松分布仅针对整数定义。直方图和汇总函数效果很好，因为它们只是在数据点本身估计，而不是内插。

如果您想了解更多详细信息，可以使用MASS包：

MASS::fitdistr(x$xes, dpois, start = list(lambda = 1))

    lambda  
  1.6601563 
 (0.1822258)

让我们尝试构建：

library(dplyr)
df <- data_frame(xes = seq.int(max(x$xes)+1)-1,
                 dens.m = dpois(xes, 1.66),
                 dens.u = dpois(xes, 1.66+0.18),
                 dens.l = dpois(xes, 1.66-0.18))

> df
# A tibble: 6 x 4
    xes     dens.m     dens.u     dens.l
  <dbl>      <dbl>      <dbl>      <dbl>
1     0 0.19013898 0.15881743 0.22763769
2     1 0.31563071 0.29222406 0.33690378
3     2 0.26197349 0.26884614 0.24930880
4     3 0.14495866 0.16489230 0.12299234
5     4 0.06015785 0.07585046 0.04550717
6     5 0.01997240 0.02791297 0.01347012

ggplot(x, aes(xes)) + 
  geom_histogram(aes(y = ..density..), color = "black",
                 fill = "white", binwidth = 1, center = 0, size = 1.5) +
  geom_ribbon(data = df, aes(xes, ymin = dens.l, ymax = dens.u), fill = "grey50", alpha = 0.5) +
  geom_line(data = df, aes(xes, dens.m, color = "Based on E(X)\n+/-1 SD of lambda"), size = 1.5)

基于这两种方法和视觉解释，你应该感到很自在地说λ= 1.66 +/- 0.18。

作为参考，我的秘密初始值是1.5。

估计泊松分布

1 个答案: