如何按列依次降序排序矩阵行（通用R代码实现）

需求：编写可复用的R代码，无需指定列名，即可对任意矩阵按列依次降序排序行——先按第一列降序排列，若该列值相同则按第二列降序，以此类推。

基础R实现（无需额外包） #

以下函数可直接处理任意矩阵，自动按所有列从左到右依次降序排序：

sort_matrix_desc <- function(mat) {
  # 矩阵转数据框便于排序操作
  df <- as.data.frame(mat)
  # 生成各列的降序排序条件（取负值实现降序）
  sort_conditions <- lapply(df, function(col) -col)
  # 按条件排序行
  sorted_df <- df[do.call(order, sort_conditions), ]
  # 转回矩阵并保留原行名
  as.matrix(sorted_df)
}

使用示例 #

用你提供的测试矩阵验证：

# 定义测试矩阵
thematrix_before <- structure(c(0, 0, 0, 0, 0, 0.44, 0.68, 0, 0, 0, 0, 0, 0, 0, 0, 
            0, 0, 0, 0.42, 0.39, 0, 0, 0, 0, 0, 0.35, 0, 0, 0, 0, 0, 0, 0, 
            0, 0, 0, 0, 0.55, 0, 0, 0, 0, 0, 0, 0.54, 0, 0, 0, 0, 0, 0, 0, 
            0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.41, 0.73, 0, 0, 0, 
            0, 0, 0, 0, 0, 0, 0.44, 0.69, 0, 0, 0, 0, 0, 0.45, 0.67, 0, 0, 
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(15L, 8L), .Dimnames = list(
              c("rQ1_10", "rQ1_11", "rQ1_13", "rQ1_14", "rQ1_15", "rQ1_16", 
                "rQ1_17", "rQ1_2", "rQ1_23", "rQ1_24", "rQ1_29", "rQ1_3", 
                "rQ1_4", "rQ1_5", "rQ1_1"), c("Features", "Innovation", 
                                                      "KPI", "Knowledge", "Performance", "Presence", "Trust", "VFM"
                )))

# 执行排序
thematrix_reordered <- sort_matrix_desc(thematrix_before)

# 查看排序结果
print(thematrix_reordered)

执行后得到的结果与你提供的排序后矩阵完全一致。

Tidyverse风格实现（需dplyr包） #

如果你习惯使用tidyverse工具链，可使用以下函数：

library(dplyr)

sort_matrix_desc_tidy <- function(mat) {
  mat %>%
    as_tibble(rownames = "row_names") %>%  # 保留行名
    arrange(across(everything(), desc)) %>%  # 所有列降序排序
    column_to_rownames("row_names") %>%  # 恢复行名
    as.matrix()  # 转回矩阵
}

使用方式与基础R版本一致：thematrix_reordered <- sort_matrix_desc_tidy(thematrix_before)

内容的提问来源于stack exchange，提问作者Shaun