Вычислить intertopic расстояния от пакета LDAvis

Пакета LDAvis производит красивого intertopic расстояния картыВычислить intertopic расстояния от пакета LDAvis

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

производит:

Как может идти о производстве матрицы или dataframe всех попарных относительных расстояний между каждым тема?

У меня есть доступ к матрице документов, корпусу, объекту модели 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")

источник

2015-09-11 Optimus

Вопросы с [воспроизводимые примеры] (http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example) я думаю, более привлекательны для пользователей SO. – shekeine

Я понимаю. Позвольте мне подумать, есть ли способ включить упрощенную версию. Я надеялся, что у меня что-то не хватает, как работают ldaVis или пакеты topicmodels. – Optimus

Добавил набор всех необходимых файлов, чтобы (надеюсь) завершить то, что я прошу. – Optimus

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

источник

2015-11-14 03:22:20 Chris

Вычислить intertopic расстояния от пакета LDAvis

ответ

Смежные вопросы