pie chart color mapping doesn't work properly when aggregating data

This seems to be maybe a partial regression related to #1375. Using similar code to that issue:

library(plotly)
plot_ly(mtcars[c(1,3,5), c("cyl", "drat")], labels = ~cyl, values = ~drat, type = 'pie', 
        marker = list(colors = c("cyan", "magenta", "black"))) %>%
    layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
           yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

plot_ly(mtcars[, c("cyl", "drat")], labels = ~cyl, values = ~drat, type = 'pie', 
        marker = list(colors = c("cyan", "magenta", "black"))) %>%
    layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
           yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

It seems to apply the default palette color to the first group.

Interestingly, if you bang it in there a few more times it shows (though with different order).

plot_ly(mtcars[, c("cyl", "drat")], labels = ~cyl, values = ~drat, type = 'pie', 
        marker = list(colors = c("cyan", "magenta", "black", "magenta", "magenta"))) %>%
    layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
           yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

Inizia eseguendo i due esempi plot_ly forniti con mtcars e confronta i colori delle sezioni del grafico a torta per i dati aggregati e non aggregati. Esamina l’issue #1375 e traccia la gestione dei colori per i grafici a torta; il lavoro è completato quando i colori forniti vengono associati in modo coerente ai gruppi corretti senza richiedere voci di colore aggiuntive.