0

我正在使用 R 中 tsna 包中的函数 tPath 和 plotPaths 来显示来自特定节点的网络中的前向可达路径。我的意图是使用heat.color调色板用颜色来指示其他节点在时间方面的距离。该函数自动在边缘标签中显示此信息，大概来自 path$tdist 向量，但我想根据边缘标签值添加颜色。

帮助文件?plotPaths提供了如何添加不同颜色的线索：

plotPaths(nd, paths,  path.col = rainbow(length(paths), alpha = 0.5), 
           displaylabels = TRUE, coord=NULL, ...)

但是彩虹调色板并没有传达关于边缘时间的连贯故事——颜色似乎是随机的——所以我想heat.colors()改用它。

但是，当我使用 时heat.colors()，颜色似乎仍然随机应用于边缘：

plot(network,
edge.col=heat.colors(length(network),
alpha=0.9),
edge.lwd=0.1,
displaylabels=FALSE,
edge.label.cex=0.15,
arrowhead.cex=0.3)

这是结果图的链接

不幸的是，我的数据是专有的，所以我不能分享它。但是可以使用任何动态网络，例如 Skye Bender deMoll 在其精彩的 tsna 教程中使用的数据（short.stergm.sim）：https://web.archive.org/web/20180423112846/http://statnet.csde。 washington.edu/workshops/SUNBELT/current/ndtv/ndtv_workshop.html#forward-path-metrics

require(tsna)
data(short.stergm.sim)
path<-tPath(short.stergm.sim,v = 13,
                graph.step.time=1)

plot(path,edge.lwd = 2)

path$tdist 列表组件返回每个顶点可到达的最早时间，如果不可达则返回 Inf。所以我认为颜色应该基于这个向量，但我无法让它工作。

感谢那里的任何帮助！

最好的，V

4

0 回答 0