Добавить текст на 3D-график в сюжет

Question

Итак, я делаю трехмерный график с использованием графиков, используя оси X, Y и Z.Мне бы хотелось, чтобы это был интерактивный сюжет, чтобы я мог смотреть на него со всех сторон, и пока все хорошо, потому что он работает.Тем не менее, сейчас я пытаюсь вставить текст в график, который будет подсвечивать некоторые точки данных, добавленные в число над самим маркером.

Я искал в интернете, чтобы посмотреть, как мне это сделать, и попал на 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)