r - 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

我找到了解决此错误的棘手方法。设置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%")