计算LDAvis包的间隙距离

Question

LDAvis包产生漂亮的间距距离图

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

生产：

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

我可以访问Document Term Matrix，Corpus，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")

Answer 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