R не может работать с add_annotations - PullRequest
Новая
       11

R не может работать с add_annotations

0 голосов
/ 27 апреля 2018

Я использую Rstudio, чтобы нарисовать картинку с сюжетными пакетами. Но есть некоторые ошибки, которые я не могу понять.

1) Предупреждение: предупреждение в origRenderFunc ():
Игнорирование явно предоставленного идентификатора виджета "bcc122e50b9"; Блестящий не использует их

2) Функция графического объекта (например, панорамирование, увеличение, уменьшение, автоматическое масштабирование и т. Д.) Может нормально работать в сети. Но когда я запускаю код R на Rstudio. Как только я нажимаю Pan, чтобы переместить картинку, Rstudio перестает работать. Это проблема в моем коде или программном обеспечении Rstudio? Вы можете использовать следующий код для деталей. 

library(ggplot2)
library(plotly)
library(shiny)
positiox_positiony <- data.frame(x_position=1:2,y_position=3:4)
node_edge_xy <- data.frame(x=1,y=3,xend=2,yend=4)
ui <- shinyUI(bootstrapPage(  
  plotlyOutput(outputId = "main_plot")  
))
server = shinyServer(function(input, output) {
  output$main_plot <- renderPlotly({
    p <- ggplot(positiox_positiony,aes(x=x_position,y=y_position))+
      geom_point(color="red",size=10,alpha=0.8)+
      geom_segment(data=node_edge_xy,aes(x = x,y = y,xend = xend,yend = yend))

    ggplotly(p)%>%
      add_annotations(showarrow = T,
                      text ='',
                      arrowhead=2,
                      arrowwidth = 2,
                      arrowside = 'srart+end',
                      opacity=1,
                      x=node_edge_xy$x,y=node_edge_xy$y,
                      ax=node_edge_xy$xend,ay=node_edge_xy$yend,
                      xref = "x",yref = "y",
                      axref = "x",ayref = "y")
  })
})

shinyApp(ui,server)

Интересно, что когда я переключаю опцию «showarrow = T» на «showarrow = F», то функция панорамирования сюжета обычно может использоваться.

...