R: разреженное умножение матрицы с помощью пакета data.table и quanteda?

Question

Я пытаюсь создать матричную умножение с разреженной матрицей и с пакетом под названием кванда, используя пакет data.table, относящийся к этой теме here. Таким образом,

require(quanteda) 

mytext <- c("Let the big dogs hunt", "No holds barred", "My child is an honor student")  
myMatrix <-dfm(mytext, ignoredFeatures = stopwords("english"), stem = TRUE) #a data.table 
as.matrix(myMatrix) %*% transpose(as.matrix(myMatrix)) 

Как вы можете заставить матричное умножение работать здесь с пакетом кванда и разреженными матрицами? Команда

Answer 1

Это работает просто отлично:

mytext <- c("Let the big dogs hunt", 
      "No holds barred", 
      "My child is an honor student")  
myMatrix <- dfm(mytext) 

myMatrix %*% t(myMatrix) 
## 3 x 3 sparse Matrix of class "dgCMatrix" 
##  text1 text2 text3 
## text1  5  .  . 
## text2  .  3  . 
## text3  .  .  6 

Нет необходимости принуждать к плотной матрице с использованием as.matrix() , Обратите внимание, что он больше не является объектом «dfmSparse», поскольку он больше не является матрицей документов по функциям.

Answer 2

t Использования, не transpose команды, для умножения матриц такого, что

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

также, как отметил, as.matrix не является разреженным, а матрица :: матрица разрежена, но здесь нет необходимости, так что лучше

myMatrix %*% t(myMatrix) 

и потенциально даже лучше

crossprod(myMatrix) 
tcrossprod(myMatrix) 

, но это требует числовых/комплексная матрица/вектор аргументов, а не работать с примером в вопросе:

require(quanteda) 
mytext <- c("Let the big dogs hunt", "No holds barred", "My child is an honor student")  
myMatrix <-dfm(mytext, ignoredFeatures = stopwords("english"), stem = TRUE) 
crossprod(myMatrix) 
tcrossprod(myMatrix)