r - 复制矩阵以形成列表

Question

a 是一个矩阵。

a<-matrix(c(2,2,1,1,1,2,1,2,1,1,2,1,1,1,1,1,1,2,2,2,1,2,1,1),6)

我想将矩阵“a”复制 3 次以形成一个列表。

我试过了:

as.list(rep(a,3))

但它不起作用。
我的预期结果如下:

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

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

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

Answer 1

rep返回它接收到的相同类型，所以如果你传递给它一个数字矩阵，它会尝试返回某种类型的数字向量——而不是列表。但是，解决方案很简单:如果您想要一个列表，请将一个列表传递给它:

rep(list(a), 3)
# [[1]]
#      [,1] [,2] [,3] [,4]
# [1,]    2    1    1    2
# [2,]    2    2    1    2
# [3,]    1    1    1    1
# [4,]    1    1    1    2
# [5,]    1    2    1    1
# [6,]    2    1    2    1
# 
# [[2]]
#      [,1] [,2] [,3] [,4]
# [1,]    2    1    1    2
# [2,]    2    2    1    2
# [3,]    1    1    1    1
# [4,]    1    1    1    2
# [5,]    1    2    1    1
# [6,]    2    1    2    1
# 
# [[3]]
#      [,1] [,2] [,3] [,4]
# [1,]    2    1    1    2
# [2,]    2    2    1    2
# [3,]    1    1    1    1
# [4,]    1    1    1    2
# [5,]    1    2    1    1
# [6,]    2    1    2    1