ggplot 객체를 반짝이는 응용 프로그램으로 플롯 변환

Question

ggplot 객체를 플롯으로 변환하고 반짝이는 응용 프로그램에 표시하려고합니다. 하지만 NULL ""

내가 성공적으로 반짝 응용 프로그램에 ggplot 개체를 반환 할 수 있었다

,

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

하지만 어떻게 든 " 'plotly_build'에 대한 적용 방법은 클래스의 객체에 적용되지 않습니다"오류가 발생했습니다 음모가 그것을 변환 할 수 없습니다.

내 코드는이

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)