如何将doc-term矩阵转换为term-term矩阵？

Question

dtm <- DocumentTermMatrix(reuters, control=list(wordLengths=c(1,Inf))) 

我想转成DTM期限长期矩阵的，有什么下面是不正确的：

dtm <- dtm %*% t(dtm) 

怎么可能做到呢？

Answer 1

如果我正确理解文档项矩阵的结构，它是t(dtm) %*% dtm。见this answer。

Answer 2

我认为这种方式如下将工作（注意：您要创建布尔或许和邻接矩阵）：

t(as.matrix(dtm)) %*% as.matrix(dtm) 

对于大DTM你会反弹到使用as.matrix的r限制。 Matrix包可以提供帮助。注我切换i和j在第一个矩阵中进行转置。

data("acq") 
dtm <- DocumentTermMatrix(acq, control=list(wordLengths=c(1,Inf))) 
tdm <- t(dtm) 

library(Matrix) 
Xt <- sparseMatrix(j=dtm$i, i=dtm$j, x=dtm$v) 
X <- sparseMatrix(j=tdm$i, i=tdm$j, x=tdm$v) 

Xt %*% X 

# For easier viewing 
(Xt %*% X) [1:20, 1:20] 

Answer 3

TDM <- TermDocumentMatrix(x) # Form a Term document matrix 

termDocMatrix <- as.matrix(TDM) # convert your TDM into a matrix 

termDocMatrix[termDocMatrix>=1] <- 1 # change the TDM into Boolean matrix 

# term adjacency matrix 
termMatrix <- termDocMatrix %*% t(termDocMatrix) 


termMatrix[1:10,1:10] # inspect terms numbered 1 to 10