r - 标准化 igraph 中的边权重以进行绘图(边权重太厚)

Question

如何根据边缘权重标准化 igraph 中边缘不太厚的加权网络图？

Answer 1

在 igraph ，其中g是图形对象，您可以通过 E(g)$weight 访问边权重并通过赋值修改边权重:E(g)$weight <- new_values 。

要在 0-1 之间标准化，请尝试:E(g)$weight <- E(g)$weight / max(E(g)$weight) 。

这是一个可复制的示例，您可以复制并粘贴。

library(igraph)

set.seed(1) # reproducibility

# generate random graph
g <- sample_k_regular(10, k = 3, directed = FALSE, multiple = FALSE) 

# add edge weights
E(g)$weight <- sample(c(1,10,50), length(E(g)), replace = TRUE)

# view the problem
plot(g, edge.width = E(g)$weight)

# normalize the edge weights between 0-1
E(g)$weight <- E(g)$weight / max(E(g)$weight)

# play with different values of `k` until you get a reasonable looking graph
k = 9
plot(g, edge.width = E(g)$weight * k)