Как изменить цвета узлов и ссылок в R googleVis sankey chart

Question

Как изменить цвета узлов и ссылок в R googleVis sankey chart? И ссылка того же цвета, что и ее исходный узел?

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)

Answer 1

Как только вам нужно раскрасить ссылки из 2 исходных узлов, вам понадобятся 2 цвета для ссылок. Также у вас всего 5 узлов, поэтому вам понадобится 5 цветов для них.

Давайте создадим 2 массива в формате JSON с цветами для узлов и ссылок

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

Затем вставьте этот массив в параметры:

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

Обратите внимание, что в настройках colorMode установлено значение "source", что означает, что вы хотите окрашивать ссылки с исходных узлов. В качестве альтернативы, установите 'target' для цветных ссылок для назначенных узлов

РЕДАКТИРОВАТЬ: добавить описание для многоуровневых 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))

Здесь нужно менять только массивы цветов. Команда для построения графика одинакова. Предположим, нам нужны эти цвета для узлов и ссылок:

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

Результат будет:

Самое сложное - понять, как назначаются эти цвета:

1. Ссылки назначаются в порядке их появления в наборе данных (row_wise)

2. Для узлов назначаются цвета в порядке построения графика.

   • От А до Х, Y, Z - зеленый
   • От X до M, N - синий
   • От Y до M, N - желтый
   • От Z до M, N - коричневый
   • От B до X, Y, Z - красный

Более подробная информация о том, как форматировать диаграмму Санки: https://developers.google.com/chart/interactive/docs/gallery/sankey

Answer 2

Я знаю, что это старше, но на тот случай, если кто-нибудь еще застрянет на этом - я выяснил, как сделать правильный порядок и сгенерировать строку цветовых узлов, чтобы вы могли иметь собственные цвета для определенных меток. Выкрикивайте @vadym-b для получения данных и объяснения порядка. Проверьте это:

#convert to list combined of source and target for color order
# edges is a dataframe from @vadym-b's answer above
edges <- 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))

#we have to make the order right - you need a list
# that is a combination of From, To, From, To, From, To
nc.df <- c()
for (i in 1:nrow(edges)) {
  nc.df <- c(nc.df, as.character(edges$From[i]), as.character(edges$To[i]))
}

#the actualy parsing - get the unique list and return
# colors based on what the source or target value is
nodeColor <- sapply(unique(nc.df), function(r) {
  if (grepl('A',r)) return('red')
  if (grepl('B',r)) return('red')
  if (grepl('Z',r)) return('green')
  if (grepl('X',r)) return('green')
  if (grepl('Y',r)) return('purple')
  if (grepl('M',r)) return('blue')
  if (grepl('N',r)) return('blue')
  #return a default color if you like
  return('black')
})

#make a sankey
library(googleVis)

# put the color list in a collapsed string
sankey <- gvisSankey(
  edges, 
  chartid = 'Sankey', 
  from="From", 
  to="To", 
  weight="Weight", 
  options=list(
    sankey = paste0("{
      iterations: 0,
      link: {
        colorMode: 'gradient'
      },
      node: {
        colors: ['",paste(nodeColor,collapse="','"),"']
      }
    }")
  )
)

plot(sankey)

Answer 3

Я поставил на github кусок кода, который делает это.

#TOPLOTS[,1] = from ; TOPLOTS[,1] = to
names_pahtwayorder<-unlist(data.frame(t(TOPLOTs[,1:2])))
names_pahtwayorder<-names_pahtwayorder[!duplicated(names_pahtwayorder)]
names(names_pahtwayorder)<-NULL; names_pahtwayorder

https://github.com/SkanderMulder/ExtractIPA/blob/master/functionSankey.r