你这个思想很奇特啊，本来排序，一行数据就是1条记录，除非你一行记录没有关联，可以采用对每列进行排序。

每列排序，可以用apply和sort来搞定。

好的 我试一下 谢谢你！

您好 ，我用您提供的思路操作了一下，但是仍有些问题，
a <- as.matrix(data)
sample8_100th <- function(x){
  mat <- matrix(NA,nrow=200,ncol=107)
  for(i in a){
    mat[,i] <- sort(x,decreasing = T)
  }
  return(mat)
}
n<-apply(a,2,sample8_100th)
data是我的数据名，共200行，107列，像针对每列单独进行降序排序，能否帮我看一下问题出在哪里？谢谢

谢谢楼主！
运行出来了，代码如下：
a <- as.matrix(data)
sample8_100th <- function(x){
sort(x,decreasing = T);
}
n<-apply(a,2,sample8_100th)

library(dplyr)
library(purrr)
data %>%
    map_df(sort, decreasing = TRUE)