在igraph中规格化边权重以进行打印（边权重过厚）

在igraph中，如果边不太厚，如何根据边权重规范化加权网络的绘图？

在

igraph

中，其中

g

是图形对象，您可以通过

E（g）$weight

访问边权重，并通过赋值修改边权重：

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)