つぶやきからスパース行列を作成する

Question

私は、スパース行列に変換したいつぶやきやその他の変数があります。

これは基本的に私のデータのようです。今は、ツイートを含む1つの列とスコアを含む1つの列を持つdata.tableに保存されます。

Tweet    Score 
Sample Tweet :)  1 
Different Tweet  0 

私はこのようになりますマトリックスにこれを変換したい：私のdata.tableの行ごとにスパース行列の1行があり

Score Sample Tweet Different :) 
    1  1  1   0 1 
    0  0  1   1 0 

。 Rでこれを行う簡単な方法はありますか？

Answer 1

これは、あなたが

library(Matrix) 
words = unique(unlist(strsplit(dt[, Tweet], ' '))) 

M = Matrix(0, nrow = NROW(dt), ncol = length(words)) 
colnames(M) = words 

for(j in 1:length(words)){ 
    M[, j] = grepl(paste0('\\b', words[j], '\\b'), dt[, Tweet]) 
} 

M = cbind(M, as.matrix(dt[, setdiff(names(dt),'Tweet'), with=F])) 

#2 x 5 sparse Matrix of class "dgCMatrix" 
#  Sample Tweet :) Different Score 
#[1,]  1  1 .   .  1 
#[2,]  .  1 .   1  . 

欲しいものに近い唯一の小さな問題は、正規表現を単語として':)'を認識していないことです。たぶん正規表現をよく知っている人は、これを修正する方法をアドバイスすることができます。