r - 将ggplot对象转换为在 Shiny 的应用程序中进行绘图

Question

我正在尝试将ggplot对象转换为plotly并将其显示在 Shiny 的应用程序中。但是我遇到了一个错误“没有适用于'plotly_build'的适用于类“NULL”的对象的方法“

我能够成功地将ggplot对象返回到 Shiny 的应用程序，

output$plot1 <- renderplot({
   gp <- ggplot(data = mtcars, aes(x = disp, y = cyl)) + geom_smooth(method = lm, formula = y~x) + geom_point() + theme_gdocs()
})

但以某种方式无法将其转换。

我的代码看起来像这样

output$plot2 <- renderplotly({
   gp <- ggplot(data = mtcars, aes(x = disp, y = cyl)) + geom_smooth(method = lm, formula = y~x) + geom_point() + theme_gdocs()
   ggplotly()
})

Answer 1

尝试:

library(shiny)
library(ggplot2)
library(ggthemes)
library(plotly)

ui <- fluidPage(  
titlePanel("Plotly"),
sidebarLayout(
sidebarPanel(),
mainPanel(
  plotlyOutput("plot2"))))

server <- function(input, output) {

output$plot2 <- renderPlotly({
print(
  ggplotly(
    ggplot(data = mtcars, aes(x = disp, y = cyl)) + geom_smooth(method = 
                      lm, formula = y~x) + geom_point() + theme_gdocs()))

})
}

shinyApp(ui, server)