当您不知道列数时，使用所有列按顺序对矩阵进行排序

我有一个从递归左连接动态生成的数据框，如何使用order当我事先不知道列数时应用到所有列的函数？我希望结果首先在第一列排序，然后在第二列排序......

在下面的示例中，我有四列

set.seed(123)
A <- matrix(rep(1:25,4)[order(rnorm(100))],ncol=4)
B <- A[order(A[,1],A[,2],A[,3],A[,4],decreasing=TRUE),]

所以我写了这个A[,1],A[,2],A[,3],A[,4]但如果我不知道列数怎么办？

创建字符串，如A[,1],A[,2],A[,3],A[,4]循环中和下次使用parse and eval函数来评估你的表达式。

set.seed(123)
A <- matrix(rep(1:25,4)[order(rnorm(100))],ncol=4)
col <- ""
for (i in 1:ncol(A)){
  col <- paste(col,paste0('A[,',i,']'), sep = ",")
}
## remove first comma
col <- substr(col, 2, nchar(col))
col
[1] "A[,1],A[,2],A[,3],A[,4]"
B <- eval(parse(text = paste("A[order(",col,",decreasing=TRUE),]")))