如何对列表中所有DataFrame的行按指定顺序重新排序？

核心步骤 #

先定义需要的stof列顺序，再遍历列表中的每个DataFrame完成重排。

定义目标顺序 #

target_order <- c("pm5", "ch4", "CO2", "so2", "pm10", "nh3")

方法一：使用tidyverse工具（dplyr） #

如果习惯用tidyverse生态，用factor指定顺序后排序：

library(dplyr)

# 遍历列表，对每个DataFrame按目标顺序重排
l_sorted <- lapply(l, function(df) {
  df %>%
    mutate(stof = factor(stof, levels = target_order)) %>%
    arrange(stof)
})

方法二：基础R实现（无需额外包） #

用match获取目标顺序对应的行索引，直接重排：

# 基础R方式重排列表中的每个DataFrame
l_sorted_base <- lapply(l, function(df) {
  df[match(target_order, df$stof), ]
})

验证结果 #

查看排序后的第一个DataFrame：

print(l_sorted[[1]])

输出示例：

stof auto boat
6  pm5    3    5
4  ch4    6    7
1  CO2    1    4
3  so2    3    6
5 pm10    2    5
2  nh3    2    5

注意事项 #

• 如果部分DataFrame的stof列存在不在target_order中的值，match方法会生成NA行；factor方法会将这些值排在所有指定顺序的行之后。
• 若确保所有DataFrame的stof列都包含target_order的全部值，两种方法效果一致。

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