r语言d3返回html地址,使用R中的NetworkD3包创建Sankey图

您需要两个数据框：一个列出所有节点(包含名称),另一个列出链接.后者包含三列,源节点,目标节点和一些值,表示链接的强度或宽度.在链接数据框中,您通过节点数据帧中的(从零开始)位置来引用节点.

假设您的数据如下：

df

Year2=sample(paste0("Hotel", 1:4), 1000, replace = TRUE),

Year3=sample(paste0("Hotel", 1:4), 1000, replace = TRUE),

Year4=sample(paste0("Hotel", 1:4), 1000, replace = TRUE),

stringsAsFactors = FALSE)

对于图表,您不仅需要区分酒店,还要区分酒店/年份组合,因为每个酒店都应该是一个节点：

df$Year1

df$Year2

df$Year3

df$Year4

链接是酒店之间从一年到下一年的“过渡”：

library(dplyr)

trans1_2 % group_by(Year1, Year2) %>% summarise(sum=n())

trans2_3 % group_by(Year2, Year3) %>% summarise(sum=n())

trans3_4 % group_by(Year3, Year4) %>% summarise(sum=n())

colnames(trans1_2)[1:2]

links

as.data.frame(trans2_3),

as.data.frame(trans3_4))

最后,数据帧需要相互引用：

nodes

links$source

links$target

然后可以绘制图表：

library(networkD3)

sankeyNetwork(Links = links, Nodes = nodes, Source = "source",

Target = "target", Value = "sum", NodeID = "name",

fontSize = 12, nodeWidth = 30)

可能有更优雅的解决方案,但这可能是您问题的起点.如果您不喜欢节点名称中的“Year …”,请在设置数据帧后删除它们.