从 LDAvis 包计算主题间距离答案

【问题标题】：Calculate intertopic distances from LDAvis package从 LDAvis 包计算主题间距离
【发布时间】：2015-11-14 11:22:20
【问题描述】：

LDAvis 包生成漂亮的主题间距离图

serVis(json_lda, out.dir = 'vis', open.browser = FALSE) # outputs lda visualizations

产生：

如何生成每个主题之间所有成对相对距离的矩阵或数据框？

我可以访问用于输出可视化的文档术语矩阵、语料库、LDA 模型对象和 json_lda。

我已将用于测试的 RDS 文件上传到 here。可以使用以下方式加载它们：

library(lsa)
library(tm)
library(slam)
library(LDAvis)
library(topicmodels)

DTM <- readRDS("dtm.RDS")
ldamodel <- readRDS("ldamodel.RDS")
json_lda <- readRDS("json_lda.RDS")
corpus <- readRDS("new.corpus.RDS")

【问题讨论】：

我认为reproducible examples 的问题对 SO 用户更有吸引力。
我明白了。让我想想是否有办法包含简化版本。我希望我错过了有关 ldaVis 或 topicmodels 包如何工作的一些信息。
添加了一组所有必要的文件以（希望）完成我的要求。

标签： r lda topic-modeling

【解决方案1】：

unzip("dtm.zip")
readRDS("json_lda.rds") -> k
library(jsonlite)
fromJSON(k) -> z
cbind(z$mdsDat$x, z$mdsDat$y) -> q
rownames(q) <- z$mdsDat$topics
dist(q) -> r

【讨论】：