将多个excel工作簿从一个子目录读取到一个数据框中

Question

此命令使我可以将当​​前目录中的所有.xlsx文件读取到数据框中。

df <- map_df(list.files(), ~ read_xlsx(., col_types = 
              c("text", "text", "text", "text", "text", "text", "text", "text", 
                "text", "numeric", "text"))) 

问题是我想将所有的excel文件放入一个名为files的子目录中，这样它就会像这样改变

 df <- map_df(list.files("files"), ~ read_xlsx(., col_types = 
                  c("text", "text", "text", "text", "text", "text", "text", "text", 
                    "text", "numeric", "text"))) 

就路径而言，这会产生问题，因为列表文件是从“ files”目录中读取的，并且路径中没有文件/first.xlsx，而是first.xlsx，这会导致读取文件时出现问题read_xlsx命令中的文件。我如何在read_xlsx中进行更改以确保在读取文件列表时将添加名为“ files”的子目录？