根据每一列中的特定值对数据框列进行排序

Question

我在R中使用Tidyverse包。我有一个包含20行500列的数据框。我想根据每列最后一行中值的大小对所有列进行排序。

这里是一个只有3行4列的示例：

1 2 3 4,
5 6 7 8,
8 7 9 1

所需的结果是：

3 1 2 4,
7 5 6 8,
9 8 7 1

我搜索了堆栈溢出，但找不到此类问题的答案。

Answer 1

以下内容按最后一行值的顺序对数据框列进行重新排序：

df <- data.frame(col1=c(1,5,8),col2=c(2,6,7),col3=c(3,7,9),col4=c(4,8,1))
last_row <- df[nrow(df),]
df <- df[,order(last_row,decreasing = T)]

首先，获取最后一行。然后使用order（）函数对它们进行排序，并返回重新排序的列。

>df
  col3 col1 col2 col4
1    3    1    2    4
2    7    5    6    8
3    9    8    7    1

Answer 2

如果我们要使用dplyr中的tidyverse，可以使用slice获取最后一行，然后按order的顺序使用decreasing进行子集列。

library(dplyr)

df[df %>% slice(n()) %>% order(decreasing = TRUE)]

#  V3 V1 V2 V4
#1  3  1  2  4
#2  7  5  6  8
#3  9  8  7  1

以R为基数的翻译是

df[order(df[nrow(df), ], decreasing = TRUE)]

数据

df <- read.table(text = "1 2 3 4
                         5 6 7 8
                         8 7 9 1")