将结果从函数转换为数据帧

Question

从这个结果中：

library(stm)
labelTopics(gadarianFit, n = 15)

Topic 1 Top Words:
     Highest Prob: immigr, illeg, legal, border, will, need, worri, work, countri, mexico, life, better, nation, make, worker 
     FREX: border, mexico, mexican, need, concern, fine, make, better, worri, nation, deport, worker, will, econom, poor 
     Lift: cross, racism, happen, other, continu, concern, deport, mexican, build, fine, econom, border, often, societi, amount 
     Score: immigr, border, need, will, mexico, illeg, mexican, worri, concern, legal, nation, fine, worker, better, also 
Topic 2 Top Words:
     Highest Prob: job, illeg, tax, pay, american, take, care, welfar, crime, system, secur, social, health, cost, servic 
     FREX: cost, health, servic, welfar, increas, loss, school, healthcar, job, care, medic, crime, social, violenc, educ 
     Lift: violenc, expens, opportun, cost, healthcar, loss, increas, gang, servic, medic, health, diseas, terror, school, lose 
     Score: job, welfar, crime, cost, tax, care, servic, increas, health, pay, school, loss, medic, healthcar, social 
Topic 3 Top Words:
     Highest Prob: peopl, come, countri, think, get, english, mani, live, citizen, learn, way, becom, speak, work, money 
     FREX: english, get, come, mani, back, becom, like, think, new, send, right, way, just, live, peopl 
     Lift: anyth, send, still, just, receiv, deserv, back, new, english, mani, get, busi, year, equal, come 
     Score: think, peopl, come, get, english, countri, mani, speak, way, send, back, money, becom, learn, live 

如何将来自最高概率的结果保存到一个数据帧中，其中列数等于主题数，行数等于每个主题的字数(n = 15)

预期输出示例：

topic1 topic2 topic3
immigr job peopl
illeg illeg come

Answer 1

在labelTopics对象中，单词存储在prob下。因此，您可以尝试如下所示：

library(stm)
topics <- labelTopics(gadarianFit, n=15)

topics <- data.frame(t(topics$prob))
colnames(topics) <- paste0("topic", 1:ncol(topics))
topics
#>     topic1   topic2  topic3
#> 1   immigr      job   peopl
#> 2    illeg    illeg    come
#> 3    legal      tax countri
#> 4   border      pay   think
#> 5     will american     get
#> 6     need     take english
#> 7    worri     care    mani
#> 8     work   welfar    live
#> 9  countri    crime citizen
#> 10  mexico   system   learn
#> 11    life    secur     way
#> 12  better   social   becom
#> 13  nation   health   speak
#> 14    make     cost    work
#> 15  worker   servic   money

请注意，stm提供了几种方法来选择每个主题中最重要的单词，包括"Frex“、"Lift”。您只需在我的代码中更改prob即可使用这些代码。

键入以下内容以查看它们：

topics <- labelTopics(gadarianFit, n=15)
str(topics)