在R语言中按日期字符串筛选文件列表子集

方法1：提取日期后按范围筛选（推荐，灵活通用） #

先从文件名中提取日期字符串，转换为标准日期类型后再做范围判断，适配任意日期区间的筛选需求：

library(stringr)

# 原始文件名列表
filenames <- c("MERRA2_200.tavg1_2d_lnd_Nx.19950120.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950121.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950122.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950123.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950124.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950125.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950126.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950127.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950128.SUB.nc",
               "MERRA2_200.tavg1_2d_lnd_Nx.19950129.SUB.nc")

# 提取Nx.后的8位日期字符串
date_str <- str_extract(filenames, "(?<=Nx\\.)\\d{8}")
# 转换为Date类型
file_dates <- as.Date(date_str, format = "%Y%m%d")

# 设定要筛选的日期范围（示例：1995-01-20 至 1995-01-23）
start_date <- as.Date("1995-01-20")
end_date <- as.Date("1995-01-23")

# 筛选符合范围的文件名
selected_files <- filenames[file_dates >= start_date & file_dates <= end_date]
print(selected_files)

方法2：正则表达式直接匹配（适合固定短区间） #

如果是固定的小范围日期，可直接用正则匹配文件名中的日期部分，比如筛选1995-01-22至1995-01-25：

# 匹配19950122、19950123、19950124、19950125
selected_files <- str_subset(filenames, "Nx\\.(1995012[2-5])\\.SUB\\.nc")
print(selected_files)

注：方法1无需修改正则，只要调整start_date和end_date就能适配任意日期区间，更适合频繁切换分析范围的场景。

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