Question

我有以下格式的矩阵：

    M1 M2 M3 M4 M5 S1 S2
V1  14 19 28 43 10  3  4
V7  25 30 24  9 39  8  4
V8  34 39  6 35 19  9  5

我想对每一行[1：5]进行排序，然后按行[6：7]按升序排列以返回以下结果：

      M1 M2 M3 M4 M5 S1 S2
  V1  10 14 19 28 43 3 4
  V7  9  24 25 30 39 4 8
  V8  6  19 34 35 39 5 9

我已经查看了排序/订单主题上的堆栈溢出答案，但是没有找到任何可以实现此结果的内容。请有人建议前进的方向。如果没有colname必须随值的位置改变而无法在行中移动值，则结果中的colnames和rownames不重要。

Answer 1

m <- as.matrix(read.table(text= "    M1 M2 M3 M4 M5 S1 S2
V1  14 19 28 43 10  3  4
V7  25 30 24  9 39  8  4
V8  34 39  6 35 19  9  5", header = TRUE))

t(apply(m, 1, function(x) c(sort(x[1:5]), sort(x[6:7]))))
#   [,1] [,2] [,3] [,4] [,5] [,6] [,7]
#V1   10   14   19   28   43    3    4
#V7    9   24   25   30   39    4    8
#V8    6   19   34   35   39    5    9

Answer 2

如果matt是您的矩阵：

cbind(t(apply(matt[,1:5], 1, sort)),t(apply(matt[,6:7], 1, sort)))

     [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,]   10   14   19   28   43    3    4
[2,]    9   24   25   30   39    4    8
[3,]    6   19   34   35   39    5    9

或使用plyr提高可读性：

library(plyr)

f = function(vec) aaply(matt[,vec], 1, sort)
cbind(f(1:5), f(6:7))

Answer 3

my_data <- matrix(data = c(14, 19, 28, 43, 10, 3, 4, 25, 30, 24, 9, 39, 8, 4, 34, 39, 6, 35, 19, 9, 5), nrow = 3, ncol = 7, byrow = TRUE)

首先我创建了一个result矩阵，

result <- matrix(nrow = 3, ncol = 7)

然后对于每个my_data的行，我对前五个元素进行了排序，对第6个和第7个元素进行了排序，将它们全部绑定在一起并将它们全部放在result矩阵中。

for (i in 1:nrow(my_data)) { result[i, ] <- c(sort(my_data[i, 1:5]), sort(my_data[i, 6:7]))}

在R中按升序排序行数据

3 个答案: