Llvis 提供了与单词可视化不同的地图

问：

我使用这一行来获取特定主题最可能的单词（使用 lda 包）：

ldaOut.terms <- as.matrix(terms(ldaOut,6))
write.csv(ldaOut.terms,file=paste("topic_model",k,"TopicsToTerms.csv"))
ldaOut.terms[1:6,]

但是，当我尝试使用 LDAvis 包对其进行可视化时，主题编号与使用上一个命令分配的主题编号不对应。

作为记录，我使用这一行：

topicmodels2LDAvis <- function(x, ...){
  post <- topicmodels::posterior(x)
  if (ncol(post[["topics"]]) < 3) stop("The model must contain > 2 topics")
  mat <- x@wordassignments
  LDAvis::createJSON(
    phi = post[["terms"]], 
    theta = post[["topics"]],
    vocab = colnames(post[["terms"]]),
    doc.length = slam::row_sums(mat, na.rm = TRUE),
    term.frequency = slam::col_sums(mat, na.rm = TRUE)
  )
}

serVis(topicmodels2LDAvis(ldaOut))

你能帮帮我吗？

提前致谢！

PS：这是我第一次尝试使用R，所以我不知道很多概念，对不起。

我希望为我的分析获得 17 个主题（到目前为止还可以）以及与地图可视化中的主题编号相对应的主题编号。