从矩阵中创建一个列表

Question

我遇到了与this question完全相反的问题...

我基本上有一个矩阵，并想从中创建一个列表，这样我每行有一个元素，每个单元格都有一个子元素。

元素的名称应该是行名。

与上面的问题相反，从如下矩阵开始：

      [,1] [,2] [,3] [,4] [,5] [,6]
 [1,]    1    1    2    3    4    5
 [2,]    2    1    2    3    4    5
 [3,]    3    1    2    3    4    5
 [4,]    4    1    2    3    4    5
 [5,]    5    1    2    3    4    5
 [6,]    6    1    2    3    4    5
 [7,]    7    1    2    3    4    5
 [8,]    8    1    2    3    4    5
 [9,]    9    1    2    3    4    5
[10,]   10    1    2    3    4    5 

我想获取如下列表：

[[1]]
[1] 1 1 2 3 4 5

[[2]]
[1] 2 1 2 3 4 5

[[3]]
[1] 3 1 2 3 4 5

[[4]]
[1] 4 1 2 3 4 5

[[5]]
[1] 5 1 2 3 4 5

[[6]]
[1] 6 1 2 3 4 5

[[7]]
[1] 7 1 2 3 4 5

[[8]]
[1] 8 1 2 3 4 5

[[9]]
[1] 9 1 2 3 4 5

[[10]]
[1] 10  1  2  3  4  5

Answer 1

R 的最新版本有一个专门用于此任务的功能（按行或列拆分）：

m <- cbind(1:10, matrix(1:5, nrow = 10, ncol = 5, byrow = TRUE))
colnames(m) <- paste0("V", 1:6)

asplit(m, 1)
#[[1]]
#V1 V2 V3 V4 V5 V6 
# 1  1  2  3  4  5 
#
#[[2]]
#V1 V2 V3 V4 V5 V6 
# 2  1  2  3  4  5 
#
#...

Answer 2

我们可以根据矩阵的rowsplit。

split(mat, row(mat))

#$`1`
#[1] 1 1 2 3 4 5

#$`2`
#[1] 2 1 2 3 4 5

#$`3`
#[1] 3 1 2 3 4 5

#$`4`
#[1] 4 1 2 3 4 5
#...

数据

mat <- matrix(c(1:10, rep(1:5, each = 10)), ncol = 6)