geom_GeomLabel () еще не реализован в

Question

Я получаю эту ошибку при преобразовании ggplot в plotyly. Что должно быть сделано?

Мой код:

p  <- ggplot(data_, aes(data_$dates,group = 1)) +
      geom_point(aes(y = data_$exp))+
      geom_point(aes(y = data_$actual))+
      geom_line(aes(y = data_$exp, color='Expected')) + 
      geom_line(aes(y = data_$actual, color='Actual'))+
      geom_label(aes(y = data_$exp,label = data_$exp,hjust = 0,vjust = -0.2))+
      geom_label(aes(y = data_$actual,label = data_$actual,hjust = 0,vjust = 0.2 ))+
      labs(title = "Avail")+
      labs(x="Dates")+
      labs(y="")+
      guides(color = guide_legend(title = ""))

output$trendPlot <- renderPlotly({
 ggplotly(p)
  })

Ошибка, которую я получаю:

geom_GeomLabel() has yet to be implemented in plotly.
  If you'd like to see this geom implemented,
  Please open an issue with your example code at
  https://github.com/ropensci/plotly/issues
Warning in origRenderFunc() :
  Ignoring explicitly provided widget ID "85055e160099"; Shiny doesn't use them

Answer 1

Ошибка означает, что plotly на данный момент не может обработать geom_label с ggplot2. Как можно предположить, можно сделать одну вещь: открыть проблему на https://github.com/ropensci/plotly/issues.. Однако бывает, что geom_text работает, поэтому замена geom_label на это будет самым простым решением.