根据每个文件名的第一部分组合大型列表中的两个文件？

Question

我正在尝试编写一个循环，根据文件名的第一部分将列表中的两个文件合并为一个。

以下是我的主列表中的四个文件（“master”）：

Iowa Lakes.xlsx
Iowa Rivers.xlsx
Illinois Lakes.xlsx
Illinois Rivers.xlsx

我想将两个爱荷华州的文件合并到一个包含州的“Lakes”和“Rivers”文件的列表中，然后在州名称之后命名列表。

结果：我的主列表“Iowa”和“Illinois”将生成两个列表，每个列表中都存储了特定于州的“Lakes”和“Rivers”文件。

这是我目前的代码：

library(stringr)

master <- list.files()

for (i in length(master)) {
  word(i, 1) <- list("Lakes"  = master[[i]],
                     "Rivers" = master[[i]])
}

但是，显然，这是行不通的。我想把它变成一个循环（或使用lapply()），以防我需要为其他状态执行此操作。

有关如何处理此问题的任何建议？我很感激帮助。