如何在R googleVis sankey图表中更改节点和链接颜色

san*_*oku 6 r googlevis sankey-diagram

如何在R googleVis sankey图表中更改节点和链接颜色?并且链接与其始发节点具有相同的颜色?

library(googleVis)
datSK <- data.frame(From=c(rep("A",3), rep("B", 3)),
                To=c(rep(c("X", "Y", "Z"),2)),
                Weight=c(5,7,6,2,9,4))

Sankey <- gvisSankey(datSK, from="From", to="To", weight="Weight",
                 options=list(
                   sankey="{link: {color: { fill: '#d799ae' } },
                        node: { color: { fill: '#a61d4c' },
                        label: { color: '#871b47' } }}"))
plot(Sankey)
Run Code Online (Sandbox Code Playgroud)

Vad*_* B. 9

只要您必须为来自2个始发节点的链接着色,您就需要2种颜色的链接.你总共有5个节点,所以你需要5种颜色.

让我们用JSON格式创建2个数组,其中包含节点和链接的颜色

colors_link <- c('green', 'blue')
colors_link_array <- paste0("[", paste0("'", colors_link,"'", collapse = ','), "]")

colors_node <- c('yellow', 'lightblue', 'red', 'black', 'brown')
colors_node_array <- paste0("[", paste0("'", colors_node,"'", collapse = ','), "]")
Run Code Online (Sandbox Code Playgroud)

接下来,将该数组插入选项:

opts <- paste0("{
        link: { colorMode: 'source',
                colors: ", colors_link_array ," },
        node: { colors: ", colors_node_array ," }
      }" )
Run Code Online (Sandbox Code Playgroud)

最后,情节图:

plot( gvisSankey(datSK, from="From", to="To", weight="Weight",
                     options=list(
                       sankey=opts)))
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

请注意,在选项中,colorMode设置为"source",这意味着您希望为来自原始节点的链接着色.或者,将"target"设置为指定节点的颜色链接

编辑:添加多级sankeys的说明

找到如何为多级sankeys分配颜色有点棘手.

我们需要创建其他日期框架:

datSK <- data.frame(From=c(rep("A",3), rep("B", 3), rep(c("X", "Y", "Z"), 2 )),
                To=c(rep(c("X", "Y", "Z"),2), rep("M", 3), rep("N", 3)),
                Weight=c(5,7,6,2,9,4,3,4,5,6, 4,8))
Run Code Online (Sandbox Code Playgroud)

这里我们只需要改变颜色数组.建立绘图的命令是相同的让我们假设我们想要节点和链接的这些颜色:

colors_link <- c('green', 'blue', 'yellow', 'brown', 'red')
colors_link_array <- paste0("[", paste0("'", colors_link,"'", collapse = ','), "]")

colors_node <- c('yellow', 'lightblue', 'red', 'black', 'brown', 'green', 'brown')
colors_node_array <- paste0("[", paste0("'", colors_node,"'", collapse = ','), "]")
Run Code Online (Sandbox Code Playgroud)

结果将是:

在此输入图像描述

最棘手的部分是了解如何分配这些颜色:

  1. 链接按照它们在数据集中出现的顺序分配(row_wise)

在此输入图像描述

  1. 对于节点颜色是在订单图中分配的.

    • 从A到X,Y,Z - 绿色
    • 从X到M,N - 蓝色
    • 从Y到M,N - 黄色
    • 从Z到M,N - 棕色
    • 从B到X,Y,Z - 红色

有关如何格式化sankey图表的更多详细信息:https: //developers.google.com/chart/interactive/docs/gallery/sankey