r - R Plotly 3D散点图中轴上的值相等

Question

我想在 x、y 和 z 轴上绘制一个具有不同值的散点立方体，但间隔相等。

我在这里找到了一个类似的问题Equal distance between all points on an axis，用于二维图。对于 plotly 中的 3D 图形，我需要相同的内容。

我试图改变因子和字符的值格式，但没有结果。

这是我的代码：

library(plotly)

myscript <- function()
{
    x <- c(0, 1, 20)
    x <- as.factor(x)
    
    y <- c(4, 6, 15)
    y <- as.factor(y)
    
    z <- c(1, 2, 3)
    z <- as.factor(z)
    
    data <- expand.grid(x, y, z)
    data$value <- c (1,2,3,4,5,6,7,8,9)
    
    w <-  data$value
    w <- as.factor(w)
    
    colnames(data)<-c('x','y','z','w')

    p <- plot_ly(data, x = ~x, y = ~y, z = ~z, 
                 color = as.factor(data$w), 
                 type = "scatter3d", 
                 mode = "markers", 
                 marker = list(symbol = 'circle', size = 10),
                 colors = "Blues"
                ) 
    p

}

这是我的结果：

虽然这是我想要获得的：

非常感谢您的帮助！