shiny中分类准确率表

library(shiny)
library(DT)

# 准备分类准确率数据
model_names <- c("决策树", "支持向量机", "随机森林")
accuracy <- c(0.85, 0.92, 0.88)
parameters <- c("最大深度=5", "核函数=径向基函数", "树的数量=100")
result_analysis <- c("决策树易于解释，适用于小规模数据集", "支持向量机适用于高维数据集", "随机森林适用于大规模数据集")

# 创建分类准确率表格
accuracy_table <- data.frame(Model = model_names, Accuracy = accuracy, Parameters = parameters, Analysis = result_analysis)
datatable(accuracy_table, options = list(pageLength = 5))

# 创建shiny应用程序
ui <- fluidPage(
  titlePanel("分类准确率表"),
  mainPanel(
    dataTableOutput("accuracy_table")
  )
)

server <- function(input, output) {
  output$accuracy_table <- renderDataTable({
    datatable(accuracy_table, options = list(pageLength = 5))
  })
}

shinyApp(ui = ui, server = server)