如何将多个“.xlsx”文件读入 R答案

【问题标题】：How to read in multiple ".xlsx" files to R如何将多个“.xlsx”文件读入 R
【发布时间】：2015-11-18 03:36:55
【问题描述】：

尝试从同一目录将多个 .xlsx 文件读入 R 时遇到问题。我不断收到以下错误。

“path.expand(file) 中的错误：参数“file”丢失，没有默认值”

我的代码如下。

require(.xlsx)
Files=list.files(path="I:/Marcs_Discretinization_try_1/Attempt1/Actual     Data", pattern=".xlsx")
sapply(Files, read.xlsx2(sheetIndex=8))

object Files 的输出看起来像这样，似乎没有附加路径。

 [1] "2015-B1-2OR.xlsx"    "2015-B1-OR10-B.xlsx" "2015-B1-OR10.xlsx"   "2015-B1-OR19.xlsx"   "2015-B2-OR19.xlsx"  
 [6] "2015-O1-2OR.xlsx"    "2015-O1-OR10-B.xlsx" "2015-O1-OR10.xlsx"   "2015-O2-2OR.xlsx"    "2015-O2-OR10-B.xlsx"
[11] "2015-O2-OR10.xlsx"   "2015-X1-2OR.xlsx"    "2015-X1-OR10-B.xlsx" "2015-X1-OR10.xlsx"   "2015-X2-2OR.xlsx"   
[16] "2015-X2-OR10-B.xlsx" "2015-X2-OR10.xlsx"

【问题讨论】：

如果要返回完整路径，请在list.files 中使用full.names = TRUE
这感觉更接近但返回相同的错误：Error in path.expand(file) : argument "file" is missing, with no default
您的 sapply 语法错误，read.xlsx2 的附加参数位于函数名称之后。试着看一些例子。
另外，您对sapply 的使用不正确，这是错误的根源。试试sapply(Files, function(x) read.xlsx2(x, sheetIndex=8)
这对@Jay 很有帮助。数据文件作为单个海量数据帧被读入，其中每一行都是一个向量，而不是单个数据帧。

标签： r xlsx

【解决方案1】：

您想合并一个文件夹中的所有 Excel 文件吗？

library(xlsx)
setwd("C:/Users/rshuell001/Desktop/excel_files")
data.files = list.files(pattern = "*.xlsx")
data <- lapply(data.files, function(x) read.xlsx(x, sheetIndex = 1))

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

【讨论】：

【解决方案2】：

我通常使用lapply 和bind_rows。舒适快捷。

require(tidyverse)
require(magittr)
require(readxl)

path <- "I:/project/raw_data"
  
url_xlsx <- list.files(path, pattern = "*.xlsx", recursive = TRUE)
  
read_xlsx_files <- function(x){
   df <- read_xlsx(path = paste(path, x, sep = "/"))
   return(df)
 }
  
df <- lapply(url_xlsx, read_xlsx_files ) %>%
   bind_rows()

【讨论】：