chuyển đổi danh sách các chỉ số ma trận thưa thớt để ma trận R

Question

Tôi có danh sách các chuỗi:

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

các yếu tố danh sách V1 và V2 là các cột. 1:23 có nghĩa là "mục nhập đầu tiên trong cột này có giá trị 23". Tất cả các mục nhập khác phải bằng 0. Kích thước của ma trận được chỉ định bởi mục nhập cao nhất, trong trường hợp này chúng tôi có 2 cột (V1 và V2) và số hàng cao nhất là 6, vì vậy sẽ dẫn đến ma trận 2x6 như sau:

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

cách hội tụ này có thể đạt được như thế nào?

Answer 1

Bạn cũng có thể thử

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

Giải pháp:?

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