对于具有任意列数的任意矩阵或数据框x,我想这样做:
x=x[order(x[,1], x[,2], ..., x[,ncol(x)]),]
Run Code Online (Sandbox Code Playgroud)
也就是说,我想按第一列排序,然后按第二列排序,...,然后按最后一列排序。这里关于排序的扩展讨论似乎不包含解决方案。这是我的解决方案,它违反了fortune(106):
sortarray = function(x){
k = ncol(x)
com = paste("x = x[order(x[,", paste(1:k, collapse = "],x[,"), "]),]", sep = "")
eval(parse(text = com))
return(x)}
x = sortarray(x)
Run Code Online (Sandbox Code Playgroud)
这似乎工作正常,但是没有更干净的方法吗?
编辑重复数据删除澄清: 这个问题与建议的重复问题有很大不同(至少对我来说)。上一个问题涉及您明确指定要排序的列的情况。就我而言,我希望自动选择列(特别是所有列),而不是必须在排序命令中键入每个列名称。下面的答案解决了我的问题,与上一个问题的任何答案不同。
x[do.call(order, x), ]
Run Code Online (Sandbox Code Playgroud)
尝试执行
example(order)
Run Code Online (Sandbox Code Playgroud)
在 R 提示符下。
之前在这里问过的问题: