R - LDA主题模型输出数据

Question

我正在使用'topicmodels'包在R中构建一些主题模型。 在预处理和创建文档词矩阵之后，我正在应用以下LDA Gibbs模型。 这可能是一个简单的答案，但我是R的新手，所以让我试试。有没有一种方法可以将主题和词列表以及它们的概率导出到文本文件或Excel文件中？ 我可以在R中打印它们（如下），但不知道如何导出:(

这主要是为了进行一些可视化，我相信可以在Excel中完成，但像我之前提到的那样，我是一个新手，没有太多可用来学习R中的可视化技术。希望这有意义。

k = 33
burnin = 1000
iter = 1000
keep = 50
seed = 2003


model_lda <- LDA(myDtm, k = k, method = "Gibbs",control = list(seed = seed, burnin =     burnin, iter = iter, keep = keep))
print(model_lda)
save(model_lda, file = "LDA_Output.RData")

topics(model_lda, 5)
terms(model_lda, 15)


 Topic 1   Topic 2    Topic 3       Topic 4   Topic 5    Topic 6    Topic 7 
[1,] "seat"    "dialogu"  "websit"      "census"  "northern" "growth"   "hse"   
[2,] "resum"   "church"   "partnership" "disabl"  "univers"  "adjust"   "legisl"
[3,] "suspend" "congreg"  "nesc"        "cso"     "peac"     "forecast" "die"   
[4,] "adjourn" "school"   "site"        "statist" "unemploy" "bernard"  "legal" 
[5,] "fisheri" "survivor" "nesf"        "survey"  "polic"    "burton"   "child" 

- user3587152

---

通常情况下，您可以使用write.table从R中导出数据。如果您只有简单的向量，则cat也可能很有用。也许您可以更明确地说明您需要的输出格式。 - MrFlick

Answer 1

首先，您可以使用readr读取数据，然后可以使用tidytext R包。例如：

readr::write_csv(tidy(model_lda, "beta"), "beta.csv")

readr::write_csv(tidy(model_lda, "gamma"), "gamma.csv")

以上代码应该会把您的beta矩阵和gamma矩阵分别保存在beta.csv和gamma.csv文件中。

您也可以在这里找到一章对我很有帮助：http://tidytextmining.com/topicmodeling.html

- Fred Boehm