如何更改迹线段的颜色？

Question

我尝试使用R图中的森伯斯特图更改迹线的颜色。

我举个例子。

data1 <- data.frame(
ids=c("up","down","noCh","up-win","down-win","up-loss","down-loss",   "noCh-win","noCh-loss"),
labels= c("up","down","noCh","win","loss","win","loss","win","loss"),
parents=c("","","","up","up","down","down","noCh","noCh" ),
stringsAsFactors = FALSE)

p <- plot_ly() %>%
 add_trace(
   ids = data1$ids,
   labels = data1$labels,
   parents =data1$parents,
   type = 'sunburst',
   maxdepth = 3,
   domain = list(column = 1)
 )%>% 
 layout(
 grid = list(columns =1, rows = 1),
 margin = list(l = 0, r = 0, b = 0, t = 0),
 colorway=c("orange","yellow","green")
 )

我得到了这样的情节：

我尝试更改外部的颜色（“赢”，“亏损”）。胜利是红色，损失是蓝色。我该如何改变？

Answer 1

一种简单的方法是在data.frame中添加另一列，在其中您为段指定所需的颜色并将变量传递到迹线：

filter_group