在 R googleVis sankey 图表中分配节点和 link 颜色

Question

接手这个，我正在尝试为节点分配一组颜色，并希望在使用 R 中的 GoogleVis 包的 Sankey 图表中与渐变模式链接。问题是我在 3 组节点中的每组都有相同的类别，我很难让它合作。

datSK <- data.frame(From=c(rep("A1",3), rep("B1", 3), rep("C1", 3), rep("A2", 3), rep("B2", 3), rep("C2",3)), 
                To=c(rep(c("A2", "B2", "C2"), 3), rep(c("A3", "B3", "C3"), 3)),
                Weight=c(5,7,6,2,9,4,3,4,5))

我希望出现在图表3个不同部分的节点A、B、C具有相同的颜色（分别为蓝色、橙色、绿色）。

plot(gvisSankey(datSK, from="From", 
       to="To", weight="Weight",
       options=list(sankey="{
                    link: { colorMode: 'gradient', colors: ['blue', 'orange', 'green']}, 
                    node: { colors: ['blue', 'orange', 'green']}}")))

不幸的是，我不知道颜色是如何分配的。

Answer 1

一年过去了，不知道你是否还需要这个答案，但这是我找到的：

plot(gvisSankey(datSK, from="From", 
       to="To", weight="Weight",
       options=list(sankey="{
                    link: { colorMode: 'gradient'}, 
                    node: { colors: ['blue', 'blue', 'orange',
                                     'green','orange', 'green',
                                     'blue','orange','green']}
                             }")))

Google的桑基图会根据节点的出现顺序分配颜色。下面是我如何决定节点的出现顺序。基本上我创建了一个节点连接列表的字符串，拆分它们并提取唯一节点，然后分配颜色。

# Create a stringlist of node pairs
nodestringlist <- paste(datSK$From,datSK$To, collapse=' ')

# Split them up
nodestringvector <- strsplit(nodestringlist, split =' ')

# Find the unique nodes in order they appear
node_order <- unique(nodestringvector[[1]])
#output: "A1" "A2" "B2" "C2" "B1" "C1" "A3" "B3" "C3"

这是你想要的吗？

在 R googleVis sankey 图表中分配节点和 link 颜色

Assigning node and link colors in R googleVis sankey chart

r

googlevis

sankey-diagram