如何根据行中的值重新排列数据框的列

问题描述

这是一道 R 编程题。我想根据其中一行中的值重新排列数据框中列的顺序。这是一个示例数据框：

df <- data.frame(A=c(1,2,3,4),B=c(3,4,1),C=c(2,1,3),D=c(4,E=c(4,1))

假设我想根据第 4 行中的值重新排列 df 中的列，从 1 到 4 升序，具有相同等级的关系。所以所需的数据框可能是：

df <- data.frame(B=c(3,A=c(1,4))

虽然我对前三列的顺序无动于衷，但所有这些在第 4 列中的值都是 1。

我可以用 for 循环来做到这一点，但我正在寻找一种更简单的方法。谢谢。

解决方法

我们可以使用 select - 对行 (4)、unlist、order 的值进行子集并将其传递给 select

library(dplyr)
df %>% 
    select(order(unlist(.[4,])))

-输出

  B D E C A
1 3 4 4 2 1
2 2 2 3 1 2
3 4 3 2 4 3
4 1 1 1 3 4

---

或者可以使用

df %>% 
     select({.} %>%
              slice_tail(n = 1) %>%
              flatten_dbl %>% 
              order)
  B D E C A
1 3 4 4 2 1
2 2 2 3 1 2
3 4 3 2 4 3
4 1 1 1 3 4

---

或在base R

df[order(unlist(tail(df,1))),]