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

我有这样一个矩阵：

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

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)

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

有没有矢量化的方法可以做到这一点

---

我曾尝试使用rep复制列，然后进行转置，但最后我使用了许多行

我们可以使用

rep

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

或

数据

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

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