我每个月都有一个文件，里面有不同的表格（2：7），将给定月份的日子分组。我需要将所有这些合并到一个 Dataframe 中。我做了一个for循环，但它只保存每个月的第一张数据表（2）。

library(readxl)
library(dplyr)
files <- list.files(path = "***/2023", full.names = T)

TrafMonth <- list() #this should save all the sheets each month
TrafMonth2 <- list() #this should save all the sheets and months
for (i in 1:length(files)) {
  Month <- files[i]
  for (j in 1:6) {
    TrafMonth[[j]] <- read_excel(path = Month, sheet = j+1)
  }
  TrafMonth2[i] <- TrafMonth
}

字符串
TrafMonth2只保存了每个月的第一个工作表，而TrafMonth保存了所有工作表，这是因为TrafMonth只将列表的第一个元素提供给TrafMonth2。
我该怎么解决这个问题？