一个问题已经问了如何在一个矩阵保持colnames申请时apply
,sapply
等在这里。但是我没有找到如何保留矩阵的列名和行名。
下面是一个例子:
mat = matrix(c(as.character(1:4)), nrow = 2)
colnames(mat) = c( 'col1', 'col2' )
rownames(mat) = c( 'row1', 'row2' )
mat = apply(mat, 2, function(x) as.numeric(paste(x)))
colnames(mat)
rownames(mat)
提前致谢 :-)
我们可以将您的应用程序包装在用户定义的函数中。
mat_fun <- function(m){
m2 <- apply(m, 2, function(x) as.numeric(paste(x)))
colnames(m2) <- colnames(m)
rownames(m2) <- rownames(m)
return(m2)
}
mat_fun(mat)
# col1 col2
# row1 1 3
# row2 2 4
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句