预测lda结果的值

Question

我有一个这样的数据框：

   name keyword1  keyword2  keyword3 
  artA      0          1        0 
  artA      1          1        0  
  artB      0          0        1
  artB      1          1        0  
  artC      1          1        0   

我使用lda

library(lda)
m <- MASS::lda(df$name~.,data=df)

在该步骤之后，我如何可视化结果并查看预测变量？

我尝试使用here：

中的代码可视化m的结果

library(shiny)
library(LDAvis)

ui <- shinyUI(
  fluidPage(
    sliderInput("nTerms", "Number of terms to display", min = 20, max = 40, value = 30),
    visOutput('myChart')
  )
)

server <- shinyServer(function(input, output, session) {
  output$myChart <- renderVis({
    if(!is.null(input$nTerms)){
      with(m, 
           createJSON(prior, counts, means, scaling, lev,svd, N, call, terms, xlevels, 
                      R = input$nTerms))


    } 
           })
})

shinyApp(ui = ui, server = server)

但是当我打开应用程序时收到此错误：

Error: argument is of length zero

任何想法我该怎么办？在createJSON中，我使用了str（m）

中的所有变量