将文字添加到3D图中

Question

因此，我通过使用x，y和z轴来绘制3d图。我希望它是一个交互式绘图，因此我可以从各个角度查看它，到目前为止，它很好，因为它可以正常工作。但是，现在我试图将文本插入到绘图中，这将通过在标记本身上方添加一个数字来突出显示其中的某些数据点。

我一直在网上搜索，看看该如何处理并进入add_annotations，但无法正常工作。我的代码如下。有人知道我该怎么做吗？理想情况下，我想给R赋予文本的X，Y和Z坐标，然后就好像它们是标记一样添加。

plot_ly(data, x = ~age, y = ~height, z = ~weight,
        marker = list(symbol = "", line = list(color = 'rgb(0,0,0)', width = 2))) %>%
add_markers() %>%
add_annotations(list(y = 0.5, x = 0.5, text = "annotation"))

Answer 1

library(plotly)
plot_ly(data=mtcars, x = ~mpg, y = ~hp, z = ~drat, mode="markers", type="scatter3d", 
        marker = list(symbol = "", line = list(color = 'rgb(0,0,0)', width = 2))) %>%
add_trace(x = mean(mtcars$mpg), y = mean(mtcars$hp), z=mean(mtcars$drat), 
          type = "scatter3d", mode="text", text = "annotation", inherit=FALSE)