R中提供了各种强大的packages,可以通过加载包来实现network的功能。
需要准备一个eges和nodes的数据文件,代表线长和节点。然后调用network的函数即可。
library(visNetwork)
library(openxlsx)
KOL_CN_EDGE <- read.xlsx("edges.xlsx")
KOL_CN_NODE <- read.xlsx("nodes.xlsx")
visNetwork(KOL_CN_NODE,KOL_CN_EDGE)%>%
visInteraction(dragNodes = TRUE,
dragView = TRUE,
zoomView = TRUE) %>%
visLayout(randomSeed = 1)
不知道怎么插入html文件,。。。。