在带有用户选定列的shiny应用程序中使用自动绘图

# 安装必要的库
install.packages("shiny")

# 导入必要的库
library(shiny)

# 定义用户界面（UI）
ui <- fluidPage(
  titlePanel("自动绘图应用程序"),
  sidebarLayout(
    sidebarPanel(
      # 创建数据列选择的输入框
      selectInput("column", "选择数据列:", choices = colnames(iris), multiple = TRUE)
    ),
    mainPanel(
      # 创建用于展示图表的输出框
      plotOutput("plot")
    )
  )
)

# 定义服务器端代码
server <- function(input, output) {
  # 读取数据集
  data <- iris
  
  # 生成图表
  output$plot <- renderPlot({
    # 根据用户选择的数据列，生成相应的图表
    if ("Sepal.Length" %in% input$column) {
      # 绘制Sepal.Length的直方图
      hist(data$Sepal.Length, main = "Sepal.Length直方图")
    }
    
    if ("Petal.Length" %in% input$column) {
      # 绘制Petal.Length的箱线图
      boxplot(data$Petal.Length, main = "Petal.Length箱线图")
    }
    
    # 可以根据需要添加更多的条件和图表类型
  })
}

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