R光沢のあるggplot2サポートベクターマシンのトレンドライン

Question

私はこれまでに長年挫折してきました。私は、トレンドラインを表示することができません：「が見つかりません 『回帰

library(shiny) 
ui = pageWithSidebar(
    headerPanel("Twitter Engagement Correlations"), 
    sidebarPanel(
     selectInput("c", label = "Variable:", 
        choices = colnames(dataset)) 
    ), 
    mainPanel(
    plotOutput('plot1') 
) 
) 
server = function(input, output) { 

    reactive({ 
    library(e1071) 
    regressor = svm(Engagements ~ Character.count, 
        data = dataset, 
        type = 'eps-regression') 
    }) 

    output$plot1 = renderPlot({ 
    print(ggplot() + 
     geom_point(aes(x = dataset[,input$c], y = dataset$Engagements), 
       colour = 'red') + 
     geom_line(aes(x = dataset$Character.count, y = predict(regressor, newdata = dataset)), 
        colour = 'blue') + 
     ggtitle('SVR Regression Model') + 
     xlab(input$c) + 
     ylab('Engagements')) 
    }) 
} 
    shinyApp(ui = ui, server = server) 

エラーコード』オブジェクトは、」表示され、私はこの問題を解決する方法がわかりませんか？ 事前におかげで

Answer 1

regressor変数はplot1の範囲内で定義されていません。あなたのreactiveに名前を付ける必要があります。

getRegressor <- reactive({ 
    library(e1071) 
    svm(Engagements ~ Character.count, 
       data = dataset, 
       type = 'eps-regression') 
}) 

今、あなたはplot1内部変数regressorを定義するには、それを呼び出すことができます。

output$plot1 <- renderPlot({ 
    regressor <- getRegressor() 
    ... 
})