如何在visNetwork中的缩放节点内添加标签？

Question

在visNetwork中,默认情况下文本不会进入节点内部,而是显示在它下面:

require(visNetwork, quietly = TRUE)
nodes <- data.frame(id = 1:3, label=2014:2016 ,value=1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges, width = "100%")

似乎解决此问题的唯一方法是使用set shape属性circle:

require(visNetwork, quietly = TRUE)
nodes <- data.frame(id = 1:3, label=2014:2016 ,value=1:3,shape='circle')
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges, width = "100%")

问题在于,正如您在上图中所看到的,现在使用value属性中的圆圈缩放节点内的标签不起作用.

那么问题是如何同时拥有两个选项("缩放"和"文本内部")？

PS:真可惜,没有visNetwork标签!

Answer 1

我找到了解决这个bug的棘手方法.设置font.size而不是value财产工作正常.您需要扩展它以获得最佳可视化效果.例如,我将它扩大10倍:

require(visNetwork, quietly = TRUE)
nodes <- data.frame(id = 1:3, label=2014:2016 ,font.size =(1:3)*10,shape='circle')
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges, width = "100%")