颜色未显示在图表中

Question

我有一些代码可以渲染带有少量额外颜色的图表，但是在使用代码时我看不到任何颜色

df <- data.frame(col1 = c( "Cat", "Dog", "Bird"),
 col2 = c( "Feline", "Canis", "Avis"), 
 stringsAsFactors=FALSE)

uniquenodes <- unique(c(df$col1, df$col2))

library(DiagrammeR)

cols <- setNames(rep("green", length(uniquenodes)), uniquenodes);cols["Canis"]<-"red"
nodes <- create_node_df(n=length(uniquenodes), nodes = seq(uniquenodes), type="number", label=uniquenodes, fillcolor=cols)
edges <- create_edge_df(from=match(df$col1, uniquenodes), to=match(df$col2, uniquenodes), rel="related")
g <-create_graph(nodes_df = nodes, edges_df = edges, attr_theme = NULL)
render_graph(g)

Answer 1

采用与您使用的完全相同的代码；您只需要更改节点的定义

nodes <- create_node_df(n=length(uniquenodes), nodes = seq(uniquenodes), type="number", label=uniquenodes, color=cols, style = "filled")

我删除了 1 个参数 fillcolor=cols 并添加了 2 个 color=cols 和 style="filled"。

Answer 2

只需将下行中的fillcolor替换为color

nodes <- create_node_df(n=length(uniquenodes), nodes = seq(uniquenodes), type="number", label=uniquenodes, color=cols)

颜色未显示在图表中

Colours don't show up in diagram

r

diagrammer