Bug: Colorbar duplicated when specifying color and symbol in marker argument

Whenever I plot a 3d scatter with color and symbol, the colorbar seems to be duplicated. This issue does not occur when symbol is removed so I believe it is an issue with the combination of the two.

library(tidyverse)
mtcars <- mtcars %>% mutate(make = substr(word(rownames(mtcars), 1), 1, 1), model = word(rownames(mtcars), 2))
pca <- PCAtools::pca(t(mtcars[,c(1:4)]), metadata = mtcars[,c("carb","gear","qsec", "make", "model")])
p <- plot_ly(data = pca$rotated, 
             x = ~PC1, y = ~PC2, z = ~PC3,
             height = 600,
             marker = list(color = pca$metadata$qsec,
                           colorscale = "Jet",
                           colorbar = list(title = "Test",
                                           y = 0.5, x = 0, len = 0.5)),
             symbol = pca$metadata$make)

p

Tái hiện ví dụ plot_ly 3D scatter được cung cấp với cả marker color và symbol, sau đó kiểm tra cách plot_ly xử lý các tùy chọn marker và colorbar. So sánh với phiên bản lược bỏ symbol. Hoàn thành khi ví dụ hiển thị một colorbar với tiêu đề và vị trí được yêu cầu.