中间步骤的度分布

Question

我需要在中间步骤绘制无标度网络的度分布。 我看到有一个question similar to mine但是，我还没有找到解决方案。

我按照Barabasi-Albert模型创建了一个10 ^ 4个节点的网络。 现在我想在网络有10 ^ 2,10 ^ 3和10 ^ 4个节点时绘制度分布图。 我怎样才能做到这一点？ 我没有找到任何可能为我服务的功能。 有什么建议吗？

这是我的代码：

library(igraph)
library(ggplot2)

firstNet <- erdos.renyi.game(n = 4, p.or.m = 1) 
net <- sample_pa(n = 10^4, m = 4, directed = FALSE, start.graph = firstNet) 
netdd <- degree_distribution(net, mode = "all", cumulative = TRUE)

谢谢