Как установить цвет узлов на графике Санки с помощью библиотеки networkD3

Я использовал следующий код R и получил следующий график. Но я хочу изменить цвет узлов с зеленого на черный. Я изо всех сил старался найти подходящий метод или параметр, но не нашел.

library(networkD3)

source <- c(0,1,3,4,4)
target <- c(2,2,1,1,0)
value <- c(33,44,66,77,88)
link_group <- as.character(c('a', 'b', 'c', 'd', 'e'))


sankeydata <- data.frame(source,target, value, link_group)
sankeydata
names <- c('a', 'b', 'c', 'd', 'e')
id <- c(0,1,2,3,4)
group <- as.character(c(1,1,1,1,1))

sankeyNodes <- data.frame(names,id,group)

sankeyNetwork(Links = sankeydata, Nodes = sankeyNodes, Source = "source", colourScale = JS(
  'd3.scaleOrdinal()  
  .domain(["a","b","c","d","e"])
  .range(["#B3E2CD","#FDCDAC","#CBD5E8","#F4CAE4","#E6F5C9"])'), 
  Target = "target", Value = "value", NodeID = "names", LinkGroup = "link_group", units = "Quads",
  NodeGroup = "group", fontSize = 15, nodeWidth = 20,fontFamily = "Arial")

выходной график


r sankey-diagram networkd3
person roadfar    schedule 15.03.2018    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Вам нужно добавить #000000 назначение черного цвета к группе узлов 1 в вашем colourScale определении

colourScale = JS('d3.scaleOrdinal().domain(["1", "a", "b", "c", "d", "e"]).
                 range(["#000000","#B3E2CD","#FDCDAC","#CBD5E8","#F4CAE4","#E6F5C9"])')
person 1.618    schedule 15.03.2018
comment
Сделанный. Большое спасибо! - person roadfar; 15.03.2018
comment
Рад, что помог! - person 1.618; 15.03.2018