用.xlsx阅读

Question

我已经设置了我的工作目录，当我为.xlsx使用这段代码时：

files <- list.files(path = "foldername/", pattern = "*xlsx")
df <- read_excel(paste0("foldername/", files)

我收到一个错误，路径必须是字符串。在其他形式的编写中，我得到的代码路径并不存在。当我为.xls运行相同的代码时，它工作得很好。会发生什么事？谢谢!

Answer 1

试试这个：

library(xlsx)

setwd("..../excel_files")

files = list.files(pattern = "*.xlsx")
df <- lapply(files, function(x) read.xlsx(x, sheetIndex = 1))

for (i in files) {
    df <- rbind(df, read.xlsx(i, sheetIndex = 1))
}