使用list.files中的多个模式仅选择匹配的文件

Question

我有以下csv文件，我只想选择在每个字符串中具有匹配的“ pop”和“ throughput”值的文件：

example_pop_high_throughput_high_strategy.csv
example_pop_high_throughput_base_strategy.csv
example_pop_high_throughput_low_strategy.csv
example_pop_base_throughput_high_strategy.csv
example_pop_base_throughput_base_strategy.csv
example_pop_base_throughput_low_strategy.csv
example_pop_low_throughput_high_strategy.csv
example_pop_low_throughput_base_strategy.csv
example_pop_low_throughput_low_strategy.csv

我只想要这些：

example_pop_high_throughput_high_strategy.csv                
example_pop_base_throughput_base_strategy.csv
example_pop_low_throughput_low_strategy.csv

我可以使用list.files选择所有带有“ high”的文件：

file_names <- list.files("made/up/path", pattern = c("high"))

虽然尝试两次执行此操作以仅匹配“高”和“高”，但没有用：

file_names <- list.files("made/up/path", pattern = c("high", "high"))

有没有一种方法可以选择具有匹配的“ pop”和“ throughput”值的文件，最好是在单个表达式中？

Answer 1

以下应该工作：

file_names <- list.files("made/up/path", pattern = c("(low|base|high).+\\1"))

Answer 2

试试这个正则表达式：

^.*?pop_([^_]+)_throughput_\1.*$

演示版