如何在R中按年份季度范围筛选指定DEMO格式的TXT文件？

你可以通过提取文件名中的年份季度信息并做范围判断来实现需求，以下是两种可行方案：

方案一：数值化年份季度（无需额外包） #

1. 先获取所有DEMO开头的文件（修正正则表达式，确保匹配正确的.txt后缀）：

filenames <- list.files(pattern = "^DEMO.*\\.txt", recursive = TRUE, full.names = FALSE)

2. 从文件名中提取年份季度并转换为可比较的数值（比如12Q2转为12.2，13Q3转为13.3）：

# 提取年份季度并格式化为"年份.季度"的字符串
qtr_info <- sub("^DEMO(\\d{2})Q(\\d)\\.txt$", "\\1.\\2", filenames)
# 转为数值型
qtr_numeric <- as.numeric(qtr_info)

3. 筛选2012Q2到2013Q3的文件：

target_files <- filenames[qtr_numeric >= 12.2 & qtr_numeric <= 13.3]

方案二：使用zoo包处理季度日期（更严谨） #

这种方法适合复杂的季度范围判断，避免数值化可能出现的逻辑漏洞：

1. 安装并加载zoo包（如果未安装）：

install.packages("zoo")
library(zoo)

2. 获取DEMO文件并提取年份季度字符串：

filenames <- list.files(pattern = "^DEMO.*\\.txt", recursive = TRUE, full.names = FALSE)
# 提取"年份Q季度"格式的字符串，比如"12Q2"
qtr_str <- sub("^DEMO(\\d{2})Q(\\d)\\.txt$", "\\1Q\\2", filenames)

3. 转换为季度日期对象并筛选：

# 转换为yearqtr类型
qtr_yearqtr <- as.yearqtr(qtr_str, format = "%yQ%q")
# 筛选2012Q2至2013Q3的文件
target_files <- filenames[qtr_yearqtr >= as.yearqtr("2012Q2") & qtr_yearqtr <= as.yearqtr("2013Q3")]

两种方案最终都会得到符合要求的文件名列表target_files，之后你可以用这个列表批量导入文件。

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