我有一个矩阵，它有行名：

mat1.data <- c(1,2,3,4,5,6)
mat1 <- matrix(mat1.data,nrow=3,ncol=2,byrow=TRUE)
rownames(mat1) <- c("a", "b", "c")
colnames(mat1) <- c("t1", "t2")

预期成果

$t1
a b c     #I need to preserve rownames
1 3 5

$t2
a b c
2 4 6

我该怎么做呢？