Estoy trabajando en datos de red y quiero visualizarlos usando sankeyNetwork() del paquete networkd3 en r . En mi marco de datos, tengo un nodo de origen y un nodo de destino, un valor y un grupo de columnas de agrupación.

1. ¿Cómo puedo hacer el diagrama de sankey sin colorear los nodos (tanto el origen como el destino sin color)?
2. Quiero colorear las líneas de enlace por un grupo de variables LinkGroup = "group" y quiero saber cómo hacer una leyenda para mostrar que los diferentes colores de los enlaces en realidad representan la variable de grupo.

aquí está el código y el marco de datos...

 # Libraries library(dplyr) library(tidyr) library(tibble) library(networkD3) # Load dataset from github data <- read.table("https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/13_AdjacencyDirectedWeighted.csv", header=TRUE) %>% rownames_to_column() %>% gather(key = "key", value = "value", -rowname) %>% filter(value > 0) %>% rename(source = rowname, target =key) %>% select("source", "target", "value") %>% mutate(group = c(rep("A", 10), rep("B",7), rep("C", 8), rep("D", 10))) nodes <- data.frame(name=c(as.character(data$source), as.character(data$target)) %>% unique()) data$IDsource=match(data$source, nodes$name)-1 data$IDtarget=match(data$target, nodes$name)-1 # Make the Network sankeyNetwork(Links = data, Nodes = nodes, Source = "IDsource", Target = "IDtarget", Value = "value", NodeID = "name", sinksRight=FALSE, nodeWidth=40, fontSize=13, nodePadding=20, LinkGroup = "group")