如何绘制两个垂直abline之间的线性回归？

Question

我正在做一个闪亮的应用程序，我想在两个垂直abline之间绘制线性回归，我可以用滑块修改。

我该怎么做？

shinyServer(function(input, output, session) {


output$plot.weibull <- renderPlot({   
PlotWeibull(my.data$X, my.data$Y)
if (input$fit.weibull) {
  FitWeibull(my.data)
  abline(FitWeibull(my.data), col = "blue")
  abline(v = log(input$reg.range), col = "blue", lty = 3)
    }
  })
})

Answer 1

而不是行abline(FitWeibull(my.data), col='blue')，你应该：

lines(log(input$reg.range), FitWeibull(log(input$reg.range)), col=blue)

第二个参数可能会给您一个错误，因为input$reg.range需要采用FitWeibull()可接受的格式。