スパース行列/オブジェクトの `data.table`表現はありますか？

Question

data.tableフレームワークでこの記事には含まれていないさまざまな理由で作業したいと思います。 data.tableは、標識マトリクスのための疎な表現を持っていますか？Matrixパッケージですか？

library(Matrix) 
library(data.table) 

set.seed(123409L) 

ints <- sample.int(2L, 1e6, replace=T, prob= c(0.9, 0.1)) - 1 

m <- Matrix(ints, ncol= 1000) 
dt <- data.table(matrix(ints, ncol= 1000)) 

pryr::object_size(m) # 1.22 MB 
pryr::object_size(dt) # 8.1 MB 

私は成長が仮に無制限である6e8要素に近い有する実際のユースケースで想定します。

この質問には既に回答済みの場合は事前にお詫びしてください。私はそれが重複としてフラグを立てることができてうれしいです。しかし、私は検索で重複を見つけられませんでした。

Answer 1

@Frankが彼のコメントで示唆したように、あなたはトリプレットの形で、すなわち、個々の観測など、それぞれのインデックスと一緒に非ゼロ要素を格納することによってdata.tableで効率的にスパース行列を表すことができますが：

m2 <- as(m, "dgTMatrix") 
dt2 <- data.table(i=m2@i+1, j=m2@j+1, value=m2@x) 

pryr::object_size(dt2) # 1.62 MB 

このdata.tableもdtから構築することができる。

dt2 <- melt(copy(dt)[,i:=.I], id.vars="i" 
    )[value>0][,j:=as.integer(variable)][,variable:=NULL]