如何同时基于三个变量对DataFrame排序（非arrange级联排序）

需求分析 #

你需要的排序逻辑是基于每行所有非NA值的最小值进行升序排序，而非dplyr::arrange()那种按列优先级依次排序的方式。从示例来看，行(19,5,10)的非NA最小值为5，行(6,NA,NA)的非NA最小值为6，因5<6，前者排在后者之前，完全符合这个逻辑。

实现思路 #

1. 为每行计算非NA最小值：逐行遍历DataFrame，忽略NA值后取该行的最小值。
2. 基于这个最小值对原DataFrame进行升序排序。

代码实现 #

方法1：基础R实现

set.seed(123) 
data <- data.frame(col1=sample(1:20,10), col2=c(sample(1:20,5), NA, NA, NA, NA, NA), col3=c(sample(1:20,5), NA, NA, NA, NA, NA))

# 计算每行的非NA最小值
row_min <- apply(data, 1, function(x) min(x, na.rm = TRUE))
# 按最小值升序排序
data_output <- data[order(row_min), ]

# 输出结果
data_output

方法2：dplyr管道实现

library(dplyr)

set.seed(123) 
data <- data.frame(col1=sample(1:20,10), col2=c(sample(1:20,5), NA, NA, NA, NA, NA), col3=c(sample(1:20,5), NA, NA, NA, NA, NA))

data_output <- data %>%
  # 计算每行非NA最小值
  mutate(row_min = pmin(col1, col2, col3, na.rm = TRUE)) %>%
  # 按最小值升序排序
  arrange(row_min) %>%
  # 移除临时计算的辅助列
  select(-row_min)

# 输出结果
data_output

扩展说明 #

如果需要在最小值相同的行之间添加次级排序规则（比如最小值相同时按col1升序），只需修改排序逻辑：

• 基础R：data[order(row_min, col1), ]
• dplyr：arrange(row_min, col1)

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