在R中合并多个.xls文件

Question

我正在尝试合并Google驱动器中的.xls文件列表。现在，我已经设法创建了我需要的所有文件的列表，但是由于某些原因，我仍然无法合并它们，这是到目前为止的代码：

库（googledrive） 输入文件<-drive_ls（path =“ Email It In”，pattern =“ * PDOL_dataexport”，n_max = 50）

图书馆（readxl） df.list <-lapply（输入文件，函数（x）read_xls（x）） 图书馆（dplyr） solidated_data <-bind_rows（df.list）

代码的第二部分引发以下错误：

错误：path必须是字符串

lapply我必须输入错误的路径（输入文件），有人可以帮忙吗？

Answer 1

我发现导入.xlsx文件或.xls文件时，readxl软件包更加友好。 假设每个.xls文件仅包含一张要导入的工作表，则下面的代码应该可以为您工作。

library(googledrive)

drive_find(n_max = 50)

library(readxl)

inputfiles <- list.files(pattern = "*PDOL_dataexport")

df.list<-lapply(inputfiles ,function(x) read_xls(x))

library(dplyr)

consolidated_data<-bind_rows(df.list)