如何在 R 中使用 LDAvis 可视化种子 lda 模型？

Question

我正在使用 R seededlda 包来训练种子 lda 模型。

textmodel_seededlda(dfmt, dict, residual = TRUE)

https://github.com/koheiw/seededlda

我想知道是否有一种方法可以使用 LDAvis 包可视化模型输出（https://github.com/cpsievert/LDAvis）？

Answer 1

我刚刚想通了这一点。 LDAvis 包有一个 createJSON 函数，您可以在其中从文本模型的相关输出生成一个 json 对象（如下例所示）。然后将 json 对象输入到 serVis 函数中以生成 LDAvis 图。它对我来说非常有效。

library(pacman)

p_load("seededlda",
       "quanteda",
       "LDAvis"
)

slda <- textmodel_seededlda(dfmt, dict, residual = TRUE)

json <- createJSON(phi = slda$phi, 
                    theta = slda$theta, 
                    doc.length = rowSums(dfmt), 
                    vocab = colnames(dfmt), 
                    term.frequency = colSums(dfmt)
)

serVis(json)