Wie R Cross in Shiny

-1

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') 

) 
    )

So, wie man externe Ansicht Cross und Konfusionsmatrix in glänzend zeigen?

Quelle

2016-04-17 Davin Dirgantara

Die Frage ist mir unklar. Ist dies (a) darüber, wie Tabellen glänzend dargestellt werden, oder (b) wie man Daten in Glanz bringt oder (c) über die CrossTable-Verwirrungsmatrix-Funktionen? Unter http://stackoverflow.com/help/how-to-ask und http://stackoverflow.com/help/mcve finden Sie Ratschläge, wie Sie gute Fragen stellen und ein minimales, vollständiges und überprüfbares Beispiel liefern können. – Uwe

Wenn Sie 'renderDataTable' verwenden, muss es ein' DT'-Objekt sein. Sie können 'datatable (whatever_other_table_object_you_have)' verwenden. Sehen Sie sich vielleicht die Dokumentation an. – Gopala

wie man es im Web in der externen Ansicht zeigt, bin ich auch verwirrt, weil es keine Tabelle war, aber ein xtable ... –

vorausgesetzt, alle globalen Variablen geladen und Bibliothek, runapp mit diesem Code 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'))

mit verbatimtextoutput können diese 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 
     }) 
     })

auf dem Web-Außenansicht

output in web external view

zeigen scheint

output in web external view

ein Weg, um es besser zu machen? es ist auf ascii Stil (ich denke) ... ich will es wie "datableoutput" ich bin okay

Quelle

2016-04-22 01:36:04

Wie R Cross in Shiny

Antwort

Verwandte Themen