考虑以下列表:
library(tm)
data("crude")
tdm <- TermDocumentMatrix(crude)
a <- findAssocs(tdm, c("oil", "opec", "xyz"), c(0.7, 0.75, 0.1))
如何管理一个数据框,并在各列中显示与这3个单词相关联的所有术语,并显示:
这是reshape2
用于帮助重塑数据的解决方案
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")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句