seyrek matrisin

Question

ile kategorik gelen ikili değişkenler oluşturma Bu data.table var:

df <- data.table(u = c(1,2,3,4,5), d = c(1,2,0,1,2), V1 = c(0.3, 0.2, 0.2, 0.1, 0.2), 
        pred = c(1,2,0,1,0), sec_pred = c(2,1,0,1,0), ones = rep(1,5)) 

# u d V1 pred sec_pred ones 
#1: 1 1 0.3 1  2 1 
#2: 2 2 0.2 2  1 1 
#3: 3 0 0.2 0  0 1 
#4: 4 1 0.1 1  1 1 
#5: 5 2 0.2 0  0 1 

Ve bu bir benzeri matrisi almak istiyorum:

dcast(df, u + d + V1 ~ pred + sec_pred, fill = 0, value.var = 'ones') 

# d V1 u 0_0 1_1 1_2 2_1 
#1: 0 0.2 3 1 0 0 0 
#2: 1 0.1 4 0 1 0 0 
#3: 1 0.3 1 0 0 1 0 
#4: 2 0.2 2 0 0 0 1 
#5: 2 0.2 5 1 0 0 0 

Ama çok büyük bir veriye sahip olarak .table, seyrek bir matris oluşturmak istiyorum. Ama biz order gerekiyorsa

Answer 1

Seçeneklerden biri

library(Matrix) 
v1 <- df[, do.call(paste, c(.SD, list(sep="_"))), .SDcols = 4:5] 
j1 <- match(v1, unique(v1)) 
sM <- sparseMatrix(1:nrow(df), j1, x=1, 
        dimnames = list(NULL, unique(v1))) 
sM 
# 5 x 4 sparse Matrix of class "dgCMatrix" 
#  1_2 2_1 0_0 1_1 
#[1,] 1 . . . 
#[2,] . 1 . . 
#[3,] . . 1 . 
#[4,] . . . 1 
#[5,] . . 1 . 

olabilir böyle 0_0, 0_1, 0_2, 1_0, 1_1 ... gibi tüm olası pred kombinasyonlarını ve sec_pred değerlerini oluşturmak için çok iyi olurdu

sM[,order(colnames(sM))] 
#5 x 4 sparse Matrix of class "dgCMatrix" 
#  0_0 1_1 1_2 2_1 
#[1,] . . 1 . 
#[2,] . . . 1 
#[3,] 1 . . . 
#[4,] . 1 . . 
#[5,] 1 . . .