R 将输出传递到ggplotly（）中

我刚刚开始实习，我的第一个任务是通过将所有现有的ggplot图更新为Plotly图来改进一个闪亮的应用程序。我对R和Shinny还很陌生，所以我在开始时遇到了一些问题

目前，此应用程序中的一个图形生成如下：

    output$barBoxPlot <- renderUI({
      plotOutput("Barplot", width = 700, height = 300
                 , click = "plot_click"
                 , hover = "plot_hover"
                 , brush = "plot_brush")
    })

---

output$barBoxPlot可能会将此添加到评论中，但由于声誉原因，目前还不能添加到评论中：

有多种方法可以解决此问题，但不需要尝试将
outputID
传递到
ggplotly（）

在
输出$Barplot中的
反应式
中，感谢您的回复！我仍然不知道你的第二个建议到底该怎么做？我的问题是如何访问ggplot对象-我是否将output$Barplot传递给这个新函数/reactive，并将返回的对象传递给renderPlotly（）？我还应该提到，我确实需要原始的output$barBoxPlot，这就是为什么您的第一个建议不一定对我有效@bendae。是的，这显然更清楚！我一回到家就试试看，如果管用的话就告诉你！谢谢：）下面是一个简短的跟进-如何在输出$barplot中使用barplot_ggplot（）？我理解在输出$barBoxPlot中的RenderPlot_ggplot（）中使用barplot（），但我不确定第一部分。
output$barplot
output$barBoxPlot <- renderPlotly({
    ggplotly(<insert graph here>)
})

output$Barplot <- renderPlot({
  ggplot(data, aes(...)) # etc
})

barplot_ggplot <- reactive({
  ggplot(data, aes(...)) # etc
})