按列复制，但在 r 中通过矢量化进行转置

Question

我有一个这样的矩阵:

m1 <- matrix(c(1,2,3,4,5,6,7,8,9), nrow = 3, byrow = TRUE)

我想让每一列重复“m”次，但转置到文件中并水平连接结果。我的意思是，假设“m”是 3，我想要这样的东西:

matrix(c(1,4,7,2,5,8,3,6,9,1,4,7,2,5,8,3,6,9,1,4,7,2,5,8,3,6,9), 
                     nrow = 3, byrow = TRUE)

有没有向量化的方法来做到这一点？

我试过使用 rep 来复制列然后转置，但我以很多行结尾

Answer 1

我们可以使用rep

matrix(rep(m1, each=nrow(m1)), nrow=3)

或者

`dim<-`(rep(m1, each=nrow(m1)), dim(m1)*c(1,3))

或者

t(replicate(nrow(m1), c(m1)))

数据

m1 <- matrix(c(1,2,3,4,5,6,7,8,9), nrow = 3, byrow = TRUE)