R语言如何按文件名日期筛选6/7/8月的tif数据文件

你的文件命名格式高度统一，有三种常用筛选方式，可根据后续处理需求选择：

方法1：按字符位置直接匹配（速度最快，适合仅需筛选文件的场景） #

因为文件名严格遵循tminYYYYMMDD.tif格式，代表月份的两位字符固定在文件名的第9、10位，不需要加载任何扩展包即可快速筛选，数千个文件也能瞬间完成匹配：

# 将引号内替换为你的tif文件实际存储文件夹路径
file_path <- "D:/your_tif_folder"
# 获取文件夹下所有.tif后缀的文件，full.names设为TRUE会返回带完整路径的文件名，方便后续直接读取
all_tif <- list.files(path = file_path, pattern = "\\.tif$", full.names = TRUE)
# 提取第9-10位的月份字符，筛选6/7/8月的文件
summer_tif <- all_tif[substr(all_tif, 9, 10) %in% c("06", "07", "08")]

如果担心文件夹内有其他不符合命名规则的tif文件造成误匹配，可以用正则表达式做更严格的校验：

summer_tif <- all_tif[grepl("^tmin\\d{4}(06|07|08)\\d{2}\\.tif$", basename(all_tif))]

正则规则说明：

• 强制匹配以tmin开头、4位年份、接06/07/08月份、2位日期、以.tif结尾的文件，自动过滤命名不规范的杂项文件。

方法2：解析日期后筛选（适合后续需按日期做聚合处理的场景） #

如果筛选后还要做按日期统计、分年月批量处理等操作，可以直接把文件名里的日期解析为R的标准日期格式，后续调用更方便：

# 加载日期处理包，若未安装可先运行 install.packages("lubridate")
library(lubridate)

# 获取所有tif文件（同方法1）
all_tif <- list.files(path = "D:/your_tif_folder", pattern = "\\.tif$", full.names = TRUE)
# 提取文件名中的日期字符串：去掉开头的tmin和结尾的.tif
date_text <- gsub("^tmin|\\.tif$", "", basename(all_tif))
# 转为标准日期格式
file_date <- ymd(date_text)
# 提取月份筛选6-8月文件
summer_tif <- all_tif[month(file_date) %in% c(6, 7, 8)]

# 筛选后可直接复用file_date变量做后续分组，比如按年份统计文件数、按旬拆分数据等

筛选结果校验 #

为避免路径错误、文件命名异常导致的筛选错误，可运行以下代码校验结果：

# 生成校验表
check_result <- data.frame(
  file_name = basename(summer_tif),
  file_month = month(ymd(gsub("^tmin|\\.tif$", "", basename(summer_tif))))
)
# 输出筛选结果包含的所有月份，正常应仅返回6、7、8
unique(check_result$file_month)
# 打印前10个文件名人工核对
head(check_result$file_name, 10)

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