如何在shiny中插入线性回归残差图？

library(shiny)
library(ggplot2)

# 创建Shiny应用程序界面
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 在侧边栏中添加用户输入控件（如数据上传或选择）
      # 这里省略了用户输入的部分
    ),
    mainPanel(
      # 在主面板中添加绘图输出
      plotOutput("residualPlot")
    )
  )
)

# 创建Shiny应用程序服务器
server <- function(input, output) {
  # 定义绘图函数
  output$residualPlot <- renderPlot({
    # 从用户输入中获取数据（假设数据在输入中名为'data'）
    data <- input$data
    
    # 进行线性回归并提取残差
    fit <- lm(y ~ x, data = data)
    residuals <- resid(fit)
    
    # 创建散点图并添加回归线和残差点
    plot <- ggplot(data, aes(x = x, y = y)) +
      geom_point() +
      geom_smooth(method = "lm", se = FALSE) +
      geom_point(aes(y = residuals), color = "red")
    
    # 返回绘制好的图表
    plot
  })
}

# 运行Shiny应用程序
shinyApp(ui = ui, server = server)