Chuyển đổi đối tượng ggplot thành lôgic trong ứng dụng sáng bóng

Question

Tôi đang cố chuyển đổi một đối tượng ggplot thành lôgic và hiển thị nó trong ứng dụng sáng bóng. Nhưng tôi gặp lỗi "không có phương pháp áp dụng cho 'plotly_build' áp dụng cho một đối tượng của lớp 'NULL'"

tôi đã có thể trả lại đối tượng ggplot đến các ứng dụng sáng bóng thành công,

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

nhưng bằng cách nào đó không thể chuyển đổi nó.

Mã của tôi trông như thế này

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

Hãy thử:

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)