今年开始做美国数学建模比赛,里面涉及一个矢量图,看到论文中用到了network3D,就下载了包,自己按照这个包自带的数据集进行了绘制,但是发现画不出来,我的代码如下:
library(networkD3)
edges <- read.table('D:/R-practice/edges.csv', header=T, sep=',')
edgesdf <- as.data.frame(edges)
vertices <- read.table('D:/R-practice/vertices.csv', header=T, sep=',')
verticesdf <- as.data.frame(vertices)
forceNetwork(Links = edgesdf, Nodes =verticesdf,
Source = "from", Target = "to",
Value = "fre", NodeID = "vertices",
Group = "group", opacity = 0.7)