Modificare il colore dei nodi nel diagramma di sankey rCharts in R

Question

Ho creato il diagramma di sankey usando rCharts. Ecco l'esempio del mio codice. I dati si basano su questo URL (http://timelyportfolio.github.io/rCharts_d3_sankey/example_build_network_sankey.html)

library(devtools) 
library(rjson) 
library(igraph) 

devtools::install_github("ramnathv/rCharts") 

library(rCharts) 

g2 <- graph.tree(40, children=4) 
V(g2)$weight = 0 
V(g2)[degree(g2,mode="out")==0]$weight <- runif(n=length(V(g2)[degree(g2,mode="out")==0]),min=0,max=100) 
E(g2)[to(V(g2)$weight>0)]$weight <- V(g2)[V(g2)$weight>0]$weight 

while(max(is.na(E(g2)$weight))) { 
    df <- get.data.frame(g2) 
    for (i in 1:nrow(df)) { 
    x = df[i,] 
    if(max(df$from==x$to)) { 
     E(g2)[from(x$from) & to(x$to)]$weight = sum(E(g2)[from(x$to)]$weight) 
    } 
    } 
} 

edgelistWeight <- get.data.frame(g2) 
colnames(edgelistWeight) <- c("source","target","value") 
edgelistWeight$source <- as.character(edgelistWeight$source) 
edgelistWeight$target <- as.character(edgelistWeight$target) 

sankeyPlot2 <- rCharts$new() 
sankeyPlot2$setLib('http://timelyportfolio.github.io/rCharts_d3_sankey') 
sankeyPlot2$set(
    data = edgelistWeight, 
    nodeWidth = 15, 
    nodePadding = 10, 
    layout = 32, 
    width = 960, 
    height = 500 
) 

sankeyPlot2 

Questo è il risultato di diagramma di Sankey.

In questo caso, ho bisogno di cambiare il colore dei nodi. Questo perché ho bisogno di evidenziare alcuni nodi come il numero 2 e 7. Quindi, il risultato che voglio è il numero 2 e 7 hanno il colore rosso e gli altri nodi hanno lo stesso colore come il grigio.

Come posso gestire questo problema?

Answer 1

io non so molto di Javascript, quindi ci può essere spazio per migliorare, ma è possibile impostare i colori aggiungendo questo:

sankeyPlot2$setTemplate(
    afterScript = " 
<script> 
    d3.selectAll('#{{ chartId }} svg .node rect') 
    .style('stroke', 'none') 
    .style('fill', function(d){ 
     return('#999999') 
    }) 
    d3.select('#{{ chartId }} svg .node:nth-child(2) rect') 
    .style('fill', function(d){ 
     return('#ff0000') 
    }) 
    d3.select('#{{ chartId }} svg .node:nth-child(7) rect') 
    .style('fill', function(d){ 
     return('#ff0000') 
    }) 
    d3.selectAll('#{{ chartId }} svg path.link') 
    .style('stroke', function(d){ 
     if (d.source.name == 2 | d.source.name == 7) { 
     return('#ff0000'); 
     } else { 
     return('#999999'); 
     } 
    }) 
</script> 
") 
sankeyPlot2 

(similar)