如何对R语言data.frame排序，保留NA关联并得到指定排序结果？

首先给出原始数据：

data <- data.frame(value = c(1,NA,2,NA,3,NA), col1 = c("A1","B1","A2","B2","A3","B3"), col2 = c("X","Y","Z","Q","R","S"))

需求说明：需要将上述data.frame按指定顺序重新排列，最终value列顺序为2,NA,1,NA,3,NA，col1列顺序为A2,B2,A1,B1,A3,B3，常规排序方法无法满足需求，可通过以下两种方式实现：

方法一：硬编码行索引直接重排 #

观察原始数据可知，目标顺序对应的原始行号为3,4,1,2,5,6，直接用索引向量提取即可：

# 构建目标行索引
target_rows <- c(3, 4, 1, 2, 5, 6)
# 重排数据
result <- data[target_rows, ]

执行后输出结果：

print(result)
#   value col1 col2
# 3     2   A2    Z
# 4    NA   B2    Q
# 1     1   A1    X
# 2    NA   B1    Y
# 5     3   A3    R
# 6    NA   B3    S

方法二：基于自定义因子顺序排序（dplyr版本） #

如果不想硬编码行号，可以通过将col1转换为指定顺序的因子，再用arrange排序：

library(dplyr)

# 定义col1的目标排序规则
col1_target_order <- c("A2", "B2", "A1", "B1", "A3", "B3")
# 转换为因子并排序
result <- data %>%
  mutate(col1 = factor(col1, levels = col1_target_order)) %>%
  arrange(col1)

该方法同样能得到符合要求的排序结果，优点是更灵活，适合需要基于某列自定义排序的场景。

补充说明 #

常规的order()或dplyr::arrange()默认会按字符的自然顺序排序（如A1<A2<A3、B1<B2<B3），无法匹配你需要的自定义顺序，因此必须手动指定排序规则或行索引。

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