R的不同不透明度

Question

我试图让3D散点图中的点的不透明度在点水平上变化，这样一些点可以是实心的而其他点可以是不可见的。我可以将整个情节改为单一的不透明度，我试图模仿早期question。我可以复制条形图而不是散点图。

试验数据：

set.seed(123)
d <- diamonds[sample(nrow(diamonds), 1000), ]
d$Opacity <- runif(1000,0,1)

我尝试了两种方法：

library(plotly)
plot_ly(d, x = carat, y = price, z=depth,
             type="scatter3d", mode="markers",
             opacity = Opacity)

plot_ly(d, x = carat, y = price, z=depth,
        type="scatter3d", mode="markers",
        markers = list(opacity = Opacity)
)

但是，这两个版本的代码都给了我这个：