R networkD3 sankey -向节点标签添加值
R networkD3 sankey -向节点标签添加值
提问于 2022-02-25 11:05:47
用networkD3::sankeyNetwork()创建一个Sankey图表的示例代码.
library("networkD3")
a = read.csv(header = TRUE, text = "
date,Data Center,Customer,companyID,source,target,value
")
node_names <- unique(c(as.character(a$source), as.character(a$target)))
nodes <- data.frame(name = node_names)
links <- data.frame(source = match(a$source, node_names) - 1,
target = match(a$target, node_names) - 1,
value = a$value)
p <- sankeyNetwork(Links = links, Nodes = nodes, Source = "source",
Target = "target", Value = "value", NodeID = "name",
sinksRight = FALSE)
onRender(
p,
function(el,x){
// select all our node text
var node_text = d3.select(el)
.selectAll(".node text")
.attr("x", 6 + x.options.nodeWidth)
.attr("text-anchor", "start");
}
)我想显示节点标签旁边的总数(每个节点的和(值)的结果)。我在StackOverflow上找到了这篇文章，并试图根据文章中的答案模拟一些JavaScript代码，但我无法让它工作。Place text values to right of sankey diagram
回答 1
Stack Overflow用户
回答已采纳
发布于 2022-02-25 12:06:34
jsCode参数htmlwidgets::onRender()是包含有效JavaScript的字符串/字符向量。
library(networkD3)
a = read.csv(header = TRUE, text = "
date,Data Center,Customer,companyID,source,target,value
6/1/2021,dcA,customer1,companyID1,open_list_view_1,open_card_2,1
6/1/2021,dcA,customer1,companyID1,open_card_2,edit_card_3,1
6/1/2021,dcA,customer1,companyID1,edit_card_3,save_card_4,1
6/1/2021,dcA,customer1,companyID1,save_card_4,back_to_card_list_5,2
6/1/2021,dcA,customer1,companyID1,back_to_card_list_5,show_more_6,1
6/1/2021,dcA,customer1,companyID1,show_more_6,view_introduction_7,1
6/1/2021,dcA,customer1,companyID1,view_introduction_7,scroll_down_8,2
6/2/2021,dcA,customer2,companyID2,open_list_view_1,open_card_2,3
6/2/2021,dcA,customer2,companyID2,open_card_2,edit_card_3,1
6/2/2021,dcA,customer2,companyID2,edit_card_3,save_card_4,4
6/2/2021,dcA,customer2,companyID2,save_card_4,back_to_card_list_5,2
6/2/2021,dcA,customer2,companyID2,back_to_card_list_5,show_more_6,1
6/2/2021,dcA,customer2,companyID2,show_more_6,view_introduction_7,1
6/2/2021,dcA,customer2,companyID2,view_introduction_7,scroll_down_8,5
")
node_names <- unique(c(as.character(a$source), as.character(a$target)))
nodes <- data.frame(name = node_names)
links <- data.frame(source = match(a$source, node_names) - 1,
target = match(a$target, node_names) - 1,
value = a$value)
p <- sankeyNetwork(Links = links, Nodes = nodes, Source = "source",
Target = "target", Value = "value", NodeID = "name",
sinksRight = FALSE)
javascript_string <-
'function(el, x){
d3.select(el).selectAll(".node text")
.text(d => d.name + " (" + d.value + ")");
}'
htmlwidgets::onRender(x = p, jsCode = javascript_string)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/71264918
复制相关文章
相似问题
腾讯云开发者
