r for循环以在单个数据帧中导入xlsx文件

Question

我想将50个xlsx文件导入R，每个文件都是一个单独的数据帧，这样我就可以单独进行循环以进行下游计算。

进口：

1.name_input.xlsx
2.name_input.xlsx
3.name_input.xlsx
4.name_input.xlsx
.
.
.
50.name_input.xlsx



listy <- list.files(path = "./",pattern = "*.xlsx", full.names = FALSE,recursive = TRUE) 

for ( i in 1:length(listy)) { filename=listy[i] data=read.xls(file = i,header=TRUE) assign(x=filename,value = data)} 

但这不起作用，是否还有其他方法可以解决？

谢谢。

Answer 1

您可以使用lapply()会同read_excel()从readxl包中的每个文件读取文件列表

require(readxl)

listy <- list.files(path = "./",pattern = "*.xlsx", full.names = FALSE,recursive = TRUE)

all_data <- lapply(listy,read_excel) 

结果all_data对象将是一个列表，其中每个列表元素对应于listy一个文件