sankeyNetwork 功能 - 设置节点和 Link 数据框所需的帮助

Question

我正在尝试为以下数据集（仅分类变量）创建 Sankey 图，但我没有成功设置 sankeyNetwork 参数（目标、源、值）。在下面找到我的代码。
你能帮我澄清一下这里有什么问题吗？

node_names <- unique(c(as.character(sk_dataset$Race), as.character(sk_dataset$Gender)))
nodes <- data.frame(name=node_names)


links <- data.frame(source=match(sk_dataset$Gender, node_names) -1,
                   target = match(sk_dataset$Race, node_names) -1,
                   value=c(2,3, 2, 3, 1, 3))

sankeyNetwork(Links=links, Nodes=nodes,Source="source",
             Target="target", Value="value")

我想要实现的示例： Example

Answer 1

library(data.table)
library(networkD3)

sk_dataset <- fread('sof/DT.csv')
sk_dataset

sk_dataset 是这样的：（我从图像中取出前 15 行）

按性别和种族创建频率table。

t1 <- sk_dataset[,.N,by = c('gender','race')]

t1 频率 table 看起来像这样：

gender	race	N
male	black	3
male	white	7
male	hispanic	5

node_names <- unique(c(as.character(sk_dataset$race), as.character(sk_dataset$gender)))
nodes <- data.frame(name=node_names)


links <- data.frame(source=match(t1$gender, node_names) -1,
                    target = match(t1$race, node_names) -1,
                    value= t1$N)

sankeyNetwork(Links=links, Nodes=nodes,Source="source",
              Target="target", Value="value")

请查看更多信息： https://www.r-graph-gallery.com/322-custom-colours-in-sankey-diagram.html

sankeyNetwork 功能 - 设置节点和 Link 数据框所需的帮助

sankeyNetwork Function - Help required to set Node and Link data frame

r

sankey-diagram