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))

Bắt đầu bằng cách chạy hai ví dụ plot_ly được cung cấp với mtcars và so sánh màu của các lát biểu đồ tròn đối với dữ liệu đã tổng hợp và chưa tổng hợp. Xem xét issue #1375 và theo dõi cách xử lý màu cho biểu đồ tròn; hoàn thành khi các màu được cung cấp luôn ánh xạ đến đúng nhóm mà không cần thêm các mục màu.