已经有人提出一个问题,关于在应用 apply
、sapply
等时如何将列名保留在矩阵中。 here 。
但我没有找到如何保留矩阵的列和行名称。
下面是一个例子:
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
关于R 在矩阵上使用 sapply 时保留列名和行名,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58098416/