我想将我的图的边缘宽度更改为与边缘介数得分相对应。
net <- read.csv("D:/SNA/R/Net.csv")
att <- read.csv("D:/SNA/R/Att.csv")
g <- graph.data.frame(net, vertices=att, directed=TRUE)
pdf("Network.pdf", pointsize=8)
plot(g, vertex.label=NA, vertex.size=3, edge.width=edge.betweenness(g))
dev.off()
我还尝试将边介数分数创建为边权重,并将其分配给plot函数中的edge.width参数,如下所示:
plot(g, vertex.label=NA, vertex.size=3, edge.width=E(g)$width
set.seed(1); data.frame(replicate(4, rnorm(100)))
。 - Erdogan CEVHER