r - 在 plotly 中将文本添加到 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"))

标签： rggplot2plotly

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)