在R Shiny中创建逻辑回归

library(shiny)
library(tidyverse)

# 导入数据集
data <- read.csv("data.csv")

ui <- shinyUI(fluidPage(
  titlePanel("逻辑回归模型"),
  
  sidebarLayout(
    sidebarPanel(
      # 添加输入组件
      selectInput("x_var", "选择自变量：", choices = names(data)),
      selectInput("y_var", "选择因变量：", choices = names(data)),
      numericInput("train_prop", "训练集比例：", value = 0.7, min = 0, max = 1),
      actionButton("train_btn", "训练模型")
    ),
    
    mainPanel(
      # 添加输出组件
      verbatimTextOutput("summary_output")
    )
  )
))

server <- shinyServer(function(input, output) {
  # 数据处理
  dataset <- reactive({
    selected_vars <- c(input$x_var, input$y_var)
    data[selected_vars]
  })
  
  # 模型训练
  model <- reactive({
    formula <- as.formula(paste(input$y_var, "~", input$x_var))
    glm(formula, data = dataset(), family = binomial)
  })
  
  # 显示模型摘要
  output$summary_output <- renderPrint({
    if (input$train_btn > 0) {
      summary(model())
    }
  })
})

shinyApp(ui, server)