R包 networkD3 学习体验

研究了一个下午，耽搁了吃饭终于做出了图，主要是看到了一个博主的文章，链接如下

https://blog.csdn.net/kl28978113/article/details/84336795

data <- read.csv("凤凰山暖季node.csv")

data1 <- read.csv("凤凰山暖季link.csv")

forceNetwork(

#边数据集

Links = data1,

# 节点数据集

Nodes = data,

#边数据集中起点对应的列

Source = "source",

# 边数据集中终点对应的列

Target = "target",

# 边数据集中边的宽度对应的列

Value = "distance",

# 节点数据集中节点名称对应的列

NodeID = "name",

# 节点数据集中节点分组对应的列

Group = "degree",

#节点数据集中节点大小对应的列

Nodesize="centrality10",

#透明度为0

opacity = 1,

#能用鼠标缩放

zoom = TRUE,

# 节点名称的字号

fontSize = 17,

# 图是否显示图例

legend=T,

#link的长短以distance表示

linkDistance = networkD3::JS("function(d) { return d.value*100; }"),

#link的粗细以1/distance即weight表示

linkWidth = networkD3::JS("function(d) { return 1/d.value; }"),

# 节点斥力大小(负值越大斥力越大)，斥力越大图形越大越宽广

charge=-1000,

# 节点绝对大小

radiusCalculation = JS("d.nodesize"),

# 不同的分组用不同的颜色表示

colourScale = JS("d3.scaleOrdinal(d3.schemeCategory20);"),

#节点的名称透明度为0，即全部直接显示在节点上

opacityNoHover = 1,

# 图宽度

width = 500,

# 图高度

height = 500,

)

然后得到了效果图～