Как изменить цвета узлов и ссылок в R Многоуровневая диаграмма GoogleVis Sankey

Question

Я пытался изменить цвета моей диаграммы Санки в R с помощью GoogleVis, и этот вопрос был самым близким к моим потребностям.

Вот данные:

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))

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 = ','), "]")

opts <- paste0("{
        link: { colorMode: 'source',
                colors: ", colors_link_array ," },
        node: { colors: ", colors_node_array ," }
      }" )

plot( gvisSankey(datSK, from="From", to="To", weight="Weight",
                     options=list(
                       sankey=opts)))

Что, если вы хотите сменить, например, три зеленых? Вы хотели A -> X будет зеленым но A -> Y & A -> Z, чтобы быть фиолетовым? Как изменится код?