在R语言中按自定义序列排序NetCDF文件名列表

核心思路 #

先从文件名中提取模型名和季节标识，将季节转换为自定义顺序的有序因子，再按「模型名→季节因子」的优先级排序，最终得到符合要求的文件名列表。

具体实现步骤 #

假设你的文件名格式类似 modelName_season.nc（如 CMIP6_djf.nc），以下是可直接复用的代码：

1. 加载字符串处理包

library(stringr)

2. 提取模型名和季节标识

# 提取下划线前的模型名
model_names <- str_extract(file_all, "^[^_]+")
# 精准匹配季节标识（djf/mam/jja/son）
seasons <- str_extract(file_all, "(djf|mam|jja|son)")

3. 定义自定义季节顺序并转换为有序因子

# 设定需要的季节排序逻辑
custom_season_order <- c("djf", "mam", "jja", "son")
# 将季节转为有序因子，确保排序时遵循自定义顺序
season_factors <- factor(seasons, levels = custom_season_order, ordered = TRUE)

4. 构建数据框并完成排序

# 创建包含文件名、模型、季节因子的数据框
file_df <- data.frame(
  filename = file_all,
  model = model_names,
  season = season_factors
)

# 先按模型分组，再按自定义季节顺序排序
sorted_file_df <- file_df[order(file_df$model, file_df$season), ]

# 提取最终排序后的文件名列表
sorted_files <- sorted_file_df$filename

适配不同文件名结构 #

如果你的文件名格式不同（比如模型名在中间，如 ERA5_CMIP6_djf_2020.nc），只需调整正则表达式即可：

# 根据实际文件名结构，捕获模型名和季节标识
match_result <- str_match(file_all, ".*_(.*)_(djf|mam|jja|son)_.*")
model_names <- match_result[, 2]
seasons <- match_result[, 3]

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