如何从shiny app获取选定属性的聚合数据？

# 导入shiny库
library(shiny)

# 定义UI
ui <- fluidPage(
  # 创建选择属性的控件
  selectInput(inputId = "attribute", label = "选择属性", choices = c("属性1", "属性2", "属性3")),
  
  # 显示聚合结果的输出
  verbatimTextOutput(outputId = "summary")
)

# 定义server逻辑
server <- function(input, output) {
  # 数据集，这里使用mtcars数据集作为示例
  data <- mtcars
  
  # 根据选择的属性进行聚合并输出结果
  output$summary <- renderPrint({
    # 获取选定的属性
    attribute <- input$attribute
    
    # 根据选定的属性进行聚合操作，这里以计算平均值为例
    summary <- aggregate(data[, attribute], by = list(data$gear), FUN = mean)
    
    # 返回聚合结果
    summary
  })
}

# 运行shiny app
shinyApp(ui = ui, server = server)