在R，Igraph。从前5％加权边缘保留或建立新网络

Question

我正在尝试将大型网络减少到其边缘的前5％，由边缘权重决定。

我通常通过声明边缘权重的截止点来修剪我的网络，如下所示：

g2 <- delete.edges(g1, E(g1) [weight<20])

有没有办法根据重量删除95％的下边缘，如：

g2 <- delete.edges(g1, E(g1) [weight outside the top 5%])

或者提取前5％呢？

Answer 1

没有发布示例，只提供了最少的代码，我担心只提供“权重”可能会隐藏attach的使用。也许：

g2 <- delete.edges(g1, E(g1) [ weight < quantile(weight, 0.95) ])