根据shiny中的reacitve输入，使用不同的数据集和列绘制不同的反应图

library(shiny)
library(ggplot2)

# 定义UI界面
ui <- fluidPage(
  titlePanel("绘制不同的反应图"),
  sidebarLayout(
    sidebarPanel(
      selectInput("dataset", "选择数据集", choices = c("mtcars", "iris")),
      selectInput("column", "选择列", choices = NULL)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  
  # 根据选择的数据集更新列的选择项
  observeEvent(input$dataset, {
    columns <- colnames(get(input$dataset))
    updateSelectInput(session, "column", choices = columns)
  })
  
  # 根据选择的数据集和列绘制反应图
  output$plot <- renderPlot({
    dataset <- get(input$dataset)
    column <- input$column
    
    ggplot(dataset, aes(x = dataset[[column]])) +
      geom_histogram()
  })
}

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