如何在 R 中为 Sankey 图表着色边缘和添加标签

问题描述

我正在复制下面的桑基图示例

# Libraries
library(tibble)
library(dplyr)
library(tidyr)
library(networkD3)

# Load dataset from github
data <- read.table("https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/13_AdjacencyDirectedWeighted.csv",header=TRUE)

# I need a long format
data_long <- data %>%
  rownames_to_column %>%
  gather(key = 'key',value = 'value',-rowname) %>%
  filter(value > 0)
colnames(data_long) <- c("source","target","value")
data_long$target <- paste(data_long$target," ",sep="")

# From these flows we need to create a node data frame: it lists every entities involved in the flow
nodes <- data.frame(name=c(as.character(data_long$source),as.character(data_long$target)) %>% unique())
 
# With networkD3,connection must be provided using id,not using real name like in the links dataframe.. So we need to reformat it.
data_long$IDsource=match(data_long$source,nodes$name)-1 
data_long$IDtarget=match(data_long$target,nodes$name)-1

# prepare colour scale
ColourScal ='d3.scaleOrdinal().range(["#FDE725FF","#B4DE2CFF","#6DCD59FF","#35B779FF","#1F9E89FF","#26828EFF","#31688EFF","#3E4A89FF","#482878FF","#440154FF"])'

# Make the Network
sankeyNetwork(Links = data_long,Nodes = nodes,Source = "IDsource",Target = "IDtarget",Value = "value",NodeID = "name",sinksRight=FALSE,colourScale=ColourScal,nodeWidth=40,fontSize=13,nodePadding=20)

如何扩展这个例子：

• 将连接着色为与节点颜色相同的颜色，但不透明度略低
• 还根据源值的总和为左侧的节点添加标签，即该节点的总流出量
• 还根据目标值的总和为右侧的节点添加标签，即流入该节点的总流量
• 为 Sankey 图表添加标题
• 删除节点的轮廓

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）