如何在R中对列对排序并保留关联值对应关系

要实现按每列对的第二列排序，同时保持列对的关联，核心思路是分别对每组列对单独排序，再将排序后的结果合并，以下是两种简洁高效的实现方式：

Base R 实现 #

直接利用order()生成排序索引，提取对应列对的行后合并：

# 按Value1降序排序State1和Value1列对
sorted_pair1 <- df[, c("State1", "Value1")][order(-df$Value1), ]
# 按Value2降序排序State2和Value2列对
sorted_pair2 <- df[, c("State2", "Value2")][order(-df$Value2), ]
# 合并两组排序结果
result <- cbind(sorted_pair1, sorted_pair2)

# 查看结果
print(result)

运行后输出与期望一致：

State1 Value1 State2 Value2
3     Az     30     Ak     45
2     Al     10     Az     20
1     Ak      1     Al      3

dplyr 实现（直观管道式写法） #

如果习惯使用tidyverse工具，可以用dplyr的arrange()和bind_cols()完成：

library(dplyr)

result <- bind_cols(
  df %>% select(State1, Value1) %>% arrange(desc(Value1)),
  df %>% select(State2, Value2) %>% arrange(desc(Value2))
)

这种写法逻辑清晰，每一步对应一组列对的排序操作，最后拼接结果。

关键说明 #

• order(-列名)或arrange(desc(列名))实现降序排序，如果需要升序，去掉负号或desc()即可。
• 每组列对单独排序时，通过索引匹配/管道筛选，保证了State列和对应的Value列始终关联，不会错位。

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