我想更改图表的边缘宽度以对应edge.betweenness得分.
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()
Run Code Online (Sandbox Code Playgroud)
我还尝试将边缘间度分数创建为边缘权重,并将其分配给plot函数中的edge.width参数,如下所示;
plot(g, vertex.label=NA, vertex.size=3, edge.width=E(g)$width
Run Code Online (Sandbox Code Playgroud)
Pio*_*dal 10
你的例子应该有效.或者,你可以写
E(g)$weight <- edge.betweenness(g)
Run Code Online (Sandbox Code Playgroud)
在绘图功能之前.
| 归档时间: |
|
| 查看次数: |
18139 次 |
| 最近记录: |