r - 如何从前 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) ])