如何按分组变量g同时重排R语言数据框的行与列？

你的问题出在列排序的依据错了：你用sort.list(df[1,])是按第一行的数值来排序列，而非列名对应的分组值；且分步排序的顺序也容易打乱结果。正确思路是先分别确定行和列的正确排序索引，再同时应用，或者先排好行，再按列名的分组值排序列。

方法一：基础R实现 #

# 构造数据（你的原代码）
g <- c(2, 1, 2, 1, 2)
df1 <- c(1, 0.2, 0.5, 0.8, 0.4)
df2 <- c(0.2, 1, 0.7, 0.6, 0.3)
df3 <- c(0.5, 0.7, 1, 0.4, 0.1) 
df4 <- c(0.8, 0.6, 0.4, 1, 0.9) 
df5 <- c(0.4, 0.3, 0.1, 0.9, 1) 
df <- data.frame(g, df1, df2, df3, df4, df5)
colnames(df) <- c("g", 2, 1, 2, 1, 2)

# 1. 获取行排序索引：按g列升序排列
row_order <- order(df$g)
# 2. 获取列排序索引：保留g列，其余列按列名的数值升序排列
col_names <- colnames(df)[-1]
col_order <- order(as.numeric(col_names))
col_idx <- c(1, col_order + 1)  # 加1是因为跳过了第一列的g

# 同时对行和列排序
sorted_df <- df[row_order, col_idx]
# 格式化输出查看结果
print(sorted_df, digits = 1)

运行后得到的结果和你期望的完全一致：

g   1   1   2   2   2
2 1 1.0 0.6 0.2 0.7 0.3
4 1 0.6 1.0 0.8 0.4 0.9
1 2 0.2 0.8 1.0 0.5 0.4
3 2 0.7 0.4 0.5 1.0 0.1
5 2 0.3 0.9 0.4 0.1 1.0

方法二：dplyr包实现（更简洁） #

如果你习惯用tidyverse风格的代码，可以用dplyr的arrange和select一步完成：

library(dplyr)

sorted_df <- df %>%
  arrange(g) %>%  # 按g升序排序行
  select(g, sort(as.numeric(colnames(.)[-1])))  # 按列名的数值排序列，保留g列

print(sorted_df, digits = 1)

关键说明 #

• 行排序：用order(df$g)直接按分组变量g的顺序排列行，确保g=1的行在前，g=2的行在后。
• 列排序：核心是按列名的分组值排序，而非按某一行的数值排序，这样才能保证列的分组顺序和行的分组顺序对应。

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