R Поворот текста в add_text

Question

Я не могу заставить текст вращаться в Plotly, в точечной диаграмме, используя add_text ().

Я просто пытаюсь получить тот же результат, что и аргумент angle в ggplot. В графике вывод должен содержать ховертекст, если это имеет значение.

Пример -

library(dplyr)
library(plotly)

data <- data.frame(
  x = 1:10,
  y = runif(10,0,10),
  lab = LETTERS[1:10]
)

# base output needed in ggplot
p <- data %>%
  ggplot(aes(x,y)) +
  geom_text(aes(label = lab, angle = 90))

# doesn't respect angle arg - not that I'm looking to use ggplotly
ggplotly(p)

# plotly version
plot_ly(data) %>%
  add_text(
    x = ~x,
    y = ~y,
    text = ~lab,
    hovertext = ~paste0("Label is ", lab),
    # things I've tried (generally one at a time..)
    textfont = list(angle = 90, textangle = 90, orientation = 90, rotate = 90)
  )

Я уверен, что упускаю что-то очевидное, но я не могу отследить это вниз .. Помогите пожалуйста!

Answer 1

Похоже, решение состоит в том, чтобы использовать add_annotations() вместо add_text(). Затем принимается textangle arg.

Правка - оказывается, вам нужны две трассы - аннотации для поворота текста, а затем маркеры для текстового указателя. Настройка opacity = 0 для маркеров выглядит нормально.