Question

我的服务器.R

shinyServer(function(input, output) {

output$table0 <- renderPrint({
  confusionMatrix(sms_results$predict_type,
                  sms_results$actual_type, positive = "spam")
})

output$table <- renderDataTable({
  table(sms_results$actual_type, sms_results$predict_type)
})
output$table1 <- renderDataTable({
  CrossTable(sms_test_pred, sms_test_labels,
             prop.chisq = FALSE, prop.t = FALSE, prop.r = FALSE,
             dnn = c('predicted', 'actual'))
})

ui.R

shinyUI(fluidPage(

  # Application title
  titlePanel("Evaluating Model Performance"),


  mainPanel(
    plotOutput("plot"),
    column(12,
           dataTableOutput('table')
    )
  ),
           dataTableOutput('table0')

 )
    )

那么，如何外观Crosstable和混淆矩阵在闪亮？

Answer 1

假设加载了所有全局变量和库，使用此代码运行runapp uir.r

library(shiny)
    shinyUI(fluidPage(
      # Application title
      titlePanel("Machine Learning - Evaluating Model Performance"),
      br(),br(),

      sidebarLayout(
        sidebarPanel(
          h2("Davin", align = "center"),
          h2("(>..<)", align = "center", style = "color:blue"),
          img(src = "40.png", height = 150, width = 300,style="display: block; margin-left: auto; margin-right: auto;")
        ),

      mainPanel(
        plotOutput("plot"),
        column(12,dataTableOutput('table')),

        h2("Kappa Table", align = "center"),verbatimTextOutput('tabkapp'),

        h2("xTable", align = "center"),verbatimTextOutput('table1'),

        h2("ROC prob", align = "center"),
        column(12,dataTableOutput('tables'))
    ))))
    #  column(12,tableOutput('tables'))

带有verbatimtextoutput的

似乎可以显示此server.r

 shinyServer(function(input, output) {

output$table1 <- renderPrint({
  ctab <- CrossTable(sms_test_pred, sms_test_labels,
             prop.chisq = FALSE, prop.t = FALSE, prop.r = FALSE,
             dnn = c('predicted', 'actual'))

})
    output$tabkapp <- renderPrint({
          tbkp <- Kappa(table(sms_results$actual_type, sms_results$predict_type))
          tbkp
        })
        })

到网络外部视图

output in web external view

任何使它变得更好的方法？它的ascii风格（我认为）...我希望它像“datatableoutput” 我很好

如何在闪亮中展示R Crosstable

1 个答案: