lista konwersji indeksów macierzy rzadkich do matrycy w R

Question

mam tę listę ciągów:

dat <- list(V1=c("1:23","4:12"),V2=c("1:3","2:12","6:3")) 

elementy lista V1 i V2 oznaczają kolumny. 1:23 oznacza "pierwszy wpis w tej kolumnie ma wartość 23". Wszystkie inne wpisy powinny wynosić zero. wymiar macierzy wskazuje najwyższej pozycji, w tym przypadku mamy 2 kolumn (V1 oraz V2) i najwyżej numer rzędu wynosi 6, tak by spowodować macierzy 2x6 jak poniżej:

matrix(c(23,3, 
    0,12, 
    0,0, 
    12,0, 
    0,0, 
    0,3),nrow=6,ncol=2,byrow=T) 

Jak można osiągnąć tę zmianę?

Answer 1

Możesz także spróbować

library(dplyr) 
library(tidyr) 
library(Matrix) 

d1 <- unnest(dat,col) %>% 
      separate(x, into=c('row', 'val'), ':', convert=TRUE) %>% 
      extract(col, into='col', '\\D+(\\d+)', convert=TRUE) 

as.matrix(with(d1, sparseMatrix(row, col, x=val))) 
#  [,1] [,2] 
#[1,] 23 3 
#[2,] 0 12 
#[3,] 0 0 
#[4,] 12 0 
#[5,] 0 0 
#[6,] 0 3 

Answer 2

Rozwiązanie:

dat <- list(V1=c("1:23","4:12"),V2=c("1:3","2:12","6:3")) 
y <- inverse.rle(list(values = 1:length(dat),lengths = sapply(dat,length))) 

x <- as.numeric(unlist(sapply(dat,function(y)sapply(strsplit(y,":"),function(x)x[1])))) 
val <- as.numeric(unlist(sapply(dat,function(y)sapply(strsplit(y,":"),function(x)x[2])))) 

num_row <- max(x) 
num_col <- max(y) 
m = matrix(0, nrow = num_row, ncol = num_col) 
m[cbind(x,y)] <- val 
m