试图使节点标签仅显示在已选择的节点上。
我发现a similar question只想在悬停时显示边缘标签。解决方案是这样的:
nodes <- data.frame(id = 1:3, label = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3), label = "Edge label", font.size = 0)
visNetwork(nodes, edges) %>%
visInteraction(hover = T) %>%
visEvents(hoverEdge = "function(e){
this.body.data.edges.update({id: e.edge, font: {size : 14}});
}") %>%
visEvents(blurEdge = "function(e){
this.body.data.edges.update({id: e.edge, font: {size : 0}});
}")
我试图修改它,但我认为我做的JavaScript部分不正确,我一点也不了解JS。
nodes <- data.frame(id = 1:3, label = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3), label = "Edge label", font.size = 0)
visNetwork(nodes, edges) %>%
visInteraction(hover = T) %>%
visEvents(selectNode= "function(e){
this.body.data.nodes.update({id: e.node, font: {size : 14}});
}") %>%
visEvents(deselectNode= "function(e){
this.body.data.nodes.update({id: e.node, font: {size : 0}});
}")
而是每次我选择或取消选择一个节点时都会创建一个新节点。虽然坐下来单击它们是使我的Rsession崩溃的一种有趣方法,但不幸的是,它并没有解决我的问题。
我敢肯定这是一个简单的修复程序,但是我已经浏览了visNetwork文档,但找不到所需的东西。帮助赞赏!
最佳答案
这应该可以解决问题。该JS实际上是根据数据框中的两个标签创建一个变量。我敢肯定有一种更技术性的方法可以做到这一点,但它仍然可以正常工作。
library(visNetwork)
nodes <- data.frame(id = 1:3, label = paste0(""), label_long = c('Label 1','Label 2','Label 3'))
edges <- data.frame(from = c(1,2), to = c(1,3), label = "Edge label", font.size = 0)
net <- visNetwork(nodes, edges) %>%
visInteraction(hover = T) %>%
visEvents(selectNode = "function(e){
var label_info = this.body.data.nodes.get({
fields: ['label', 'label_long'],
filter: function (item) {
return item.id === e.node
},
returnType :'Array'
});
this.body.data.nodes.update({id: e.node, label : label_info[0].label_long, label_long : label_info[0].label});
}") %>%
visEvents(blurNode = "function(e){
var label_info = this.body.data.nodes.get({
fields: ['label', 'label_long'],
filter: function (item) {
return item.id === e.node
},
returnType :'Array'
});
this.body.data.nodes.update({id: e.node, label : label_info[0].label_long, label_long : label_info[0].label});
}")
print(net)
关于javascript - visNetwork + R:仅在选择时显示节点标签,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/45740504/