r - tm 包 : Output of findAssocs() in a matrix instead of a list in R

Question

考虑以下列表:

library(tm)
data("crude")
tdm <- TermDocumentMatrix(crude)
a <- findAssocs(tdm, c("oil", "opec", "xyz"), c(0.7, 0.75, 0.1))

我如何设法拥有一个数据框，其中包含与列中的这 3 个单词相关联的所有术语并显示:

对应的相关系数(如果存在)

NA 如果该词不存在(例如这对夫妇(油，他们)将显示 NA)

Answer 1

这是使用 reshape2 的解决方案帮助 reshape 数据

library(reshape2)
aa<-do.call(rbind, Map(function(d, n) 
    cbind.data.frame(
      xterm=if (length(d)>0) names(d) else NA, 
      cor=if(length(d)>0) d else NA, 
      term=n),
    a, names(a))
)

dcast(aa, term~xterm, value.var="cor")