Схема раскраски в сети D3 vs igraph

У меня есть сеть, в которой я охарактеризовал каждый из узлов с помощью предыдущего анализа и назначил цвета следующим образом:

plot.igraph(g, layout=layout.fruchterman.reingold(g), vertex.color=node_colors, vertex.label = node_names)

Переменная node_colors - это вектор, который был сделан из предыдущего анализа, чтобы цвета совпадали с размещением / кластеризацией вершин.

введите описание изображения здесь

Однако, когда я пытаюсь реализовать персонализированную схему раскраски в networkD3, я получаю ошибку «неиспользованный аргумент»:

data<-igraph_to_networkD3(g, group = members)
forceNetwork(Links = data$links, Nodes = data$nodes, Source = 'source', Target = 'target', NodeID = 'value', Nodesize = 'size', Group = "group", colourScale=node_colors, zoom = T, legend = T, opacityNoHover = TRUE)

Ошибка: предупреждение: ошибка в forceNetwork: неиспользуемый аргумент (colorScale = node_colors)

NetworkD3, кажется, просто создает свою собственную схему раскраски ... поэтому, когда я опускаю аргумент: 'colorScale = node_colors', я получаю следующее:

введите описание изображения здесь

Но, как вы можете видеть, цвета не синхронизируются с цветом графика графика.

Кто-нибудь знает, как создать индивидуальную схему раскраски (вектор, содержащий серию цветов) в networkD3


r igraph networkd3
person johnny utah    schedule 05.08.2016    source источник
comment
Возможный дубликат этого вопроса   -  person Ryan Haunfelder    schedule 10.08.2016

Ответы (1)


arrow_upward
4
arrow_downward

Вы можете передать код Javascript с помощью функции JS(), которая поставляется с пакетом networkD3. В Javascript для указания цветов можно использовать шестнадцатеричный код. Вот пример:

YourColors <- 'd3.scaleOrdinal().range([ "#FFA500", "#4169E1",  "#32CD32",
                                         "#FFC0CB", "#8A2BE2", "#FF6347"]);'

forceNetwork(Links = data$links, Nodes = data$nodes, 
             Source = 'source', Target = 'target', 
             NodeID = 'value', Nodesize = 'size', Group = "group",
             ######################### 
             colourScale = JS(YourColors), 
             #########################
             zoom = T, legend = T, opacityNoHover = TRUE)

Если вы хотите связать определенные цвета с определенными переменными, вы можете использовать

    YourColors <- 'd3.scaleOrdinal()
                  .domain(["variable1", "variable2", "variable3"])
                  .range(["#7FFF00", "#A52A2A", "#E6E6FA"])'
person Renel Chesak    schedule 14.04.2017