Как заставить сюжетно "scatter3d" уважать порядок уровней факторов в R

Question

Рассмотрим этот пример, в котором порядок уровней задан явно:

library(plotly)
iris$sp <- factor(iris$Species, c("versicolor", "setosa", "virginica"))

Диаграмма рассеяния 2D учитывает порядок уровней факторов:

plot_ly(data = iris,
        x = ~sp, 
        y = ~Sepal.Width,
        type = "scatter",
        mode = "markers",
        marker = list(opacity = 0.6, size = 4)) 

А трехмерный график рассеяния не дает:

plot_ly(data = iris,
        x = ~sp, 
        y = ~Sepal.Length,
        z = ~Sepal.Width,
        type = "scatter3d",
        mode = "markers",
        marker = list(opacity = 0.6, size = 4)) 

Вопрос: как сделать plotly "scatter3d" уважать порядок уровней факторов в R?

Теперь кажется, что уровни сортируются в виде строк на трехмерном графике. Это ошибка? Или это было сделано специально?