ggplot nesnesini parlak uygulamada çizime dönüştürme

Question

Bir ggplot nesnesini plotly'e dönüştürmeye ve parlak bir uygulamada göstermeye çalışıyorum. Ama Boş " '

başarıyla parlak uygulamaya ggplot nesneyi dönebildi

,

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

ama bir şekilde' 'plotly_build' için geçerli bir yöntem sınıf bir nesneye uygulanan" bir hatayla karşılaştı arsa bunu dönüştüremez.

Benim kod bu

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

deneyin benziyor:

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)