我在 for 循环中使用 add_trace() 函数在 plotly 的 scatter3d 模式下为 3d 网络图创建线条.每个 add_trace 在网络中的两个节点之间绘制一条单独的线.该方法是有效的，但是对于大量循环，各个循环的速度似乎很快就会减慢.

示例数据可以在这里下载:

此问题的可重复数据

为方便起见，这里是这个问题的数据.OP 需要从 github 下载一个 .gml 文件，并安装 library(igraph) 以将数据处理到这些文件中.

es <- 结构(列表(V1 = c(1, 1, 2, 1, 2, 3, 1, 1, 1, 5, 6, 1, 2, 3, 4, 1, 3, 3, 1, 5, 6, 1, 1,4, 1, 2, 3, 4, 6, 7, 1, 2, 1, 2,1, 2, 24, 25, 3, 24, 25, 3, 24, 27, 2, 9, 1, 25, 26, 29, 3, 9, 15, 16, 19, 21, 23, 24, 30,31, 32, 9, 10, 14, 15, 16, 19, 20,21, 23, 24, 27, 28, 29, 30, 31, 32, 33),V2 = c(2, 3, 3, 4, 4, 4, 5, 6, 7, 7, 7, 8, 8, 8, 8, 9, 9, 10, 11, 11, 11, 12, 13,13,14, 14, 14, 14, 17, 17, 18, 18, 20, 20, 22, 22, 26, 26, 28, 28, 28, 29, 30, 30, 31, 31, 32, 32, 32,32, 33, 33, 33, 33, 33, 33,33, 33, 33, 33, 33, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34)),.Names = c("V1", "V2"), row.names = c(NA, -78L), class = "data.frame")theta <- seq(0,2,length.out=35)[1:34]Xn