是否有 R function 根据指定行中的列值重新排列多列？

Question

我正在尝试重新定位多个列并在我的数据集的最后一行中对它们的值进行排序。 在 dplyr 中有没有办法做到这一点，或者我是否需要交换行和列以便我可以只使用排列？

这是一个例子：

df <- data.frame(id = c("q", "w", "e", "t", "d", "r"),
                 A=c(22, 25, 29, 13, 22, -8),
                 B=c(12, 10, 6, 6, 8, 11),
                 C=c(NA, 15, 15, 18, 22, 13),
                 D=c(90, 4, 3, 6, -6, -6))

我的 output 理想情况下是相同的数据框，但排序为 id、A、D、B、C（字母命名的列按照最后一行中数值的顺序排列）。

字符行与负数相结合意味着当我尝试使用下面建议的答案对行进行排序时，

neworder <- order(unlist(df[nrow(df),]))

df[, neworder]

产生的订单是D，A，B，C，id。 我不明白为什么 D 和 A 会交换位置。

编辑说明：在重新打开队列中找到了它，唯一有意义的方法是将重新排序限制为最后一行具有数值的字母名称的列。 id列在该行中有一个字母值。

Answer 1

这是一个使用基数 R 的简单方法：

df <- data.frame(A=c(22, 25, 29, 13, 22, 30),
                 B=c(12, 10, 6, 6, 8, 11),
                 C=c(NA, 15, 15, 18, 22, 13))

#get the last row and establish the order
neworder <- order(unlist(df[nrow(df),]))

df[, neworder]

新结果是根据最后一行中的值从最低到最高的顺序。

更新为了避免在排序中包含第一列，修改传递给订单 function 的列。然后将结果加 1，

#get the last row and establish the order
# selecting only the desired columns
neworder <- order(unlist(df[nrow(df), 2:5]))

#need to add the first column back onto the column
df[, c(1, (neworder+1))]