R XLConnect函数未将参数传递给system.file

我对XLConnect库有问题。它的system.file函数，我只见过与

file1 <- system.file(file, package ="XLConnect")

编辑#2：

我已经包括了需要附加的2/60文件。我的目标位置上的所有文件都是Excel文件，它们有10列宽，行长可变，这是由于新的区域或刚刚重命名的区域造成的。我得到的新错误是：

此外：警告信息： 解压中（xlsxFile，exdir=xmlDir）：从zip文件提取时出现错误1

编辑#3：

源（“~/.active rstudio document”，echo=TRUE）

---

抱歉，我仍然有问题，但是我知道问题出在哪里。出于某种原因，打印为文件的内容前面带有“~$”，当我只输入文件名“Q1，2011-Halton，all home types.xlsx”作为文件时，它就工作了，我将数据输入到数据框中。现在这个问题很明显，我无法批量导入60个不同的Excel名称…

尝试使用

openxlsx

库和以下代码：

library("openxlsx")

file_list = list.files(pattern = "xlsx$")

dataset = data.frame()

for (file in file_list){
    print(file)
    temp = read.xlsx(file,sheet = 1, colNames = F)
    temp$quarter = substr(file,1,2)
    temp$year = substr(file,4,8)
    dataset = rbind(dataset,temp)
}

编辑1: 添加了一个打印（文件）以检测哪个xlsx文件存在解压缩问题

编辑2:

---

通过从文件名中读取季度和年度信息，添加了这些信息。这仅在所有文件名都遵循相同的模式时才有效。

如果文件是一个列表，并且此行位于for循环内（索引为k），那么请尝试

file[[k]]

我不确定这是否会导致后续错误，但我采纳了您的建议，并在我的loopdich建议中添加了一个计数器，for循环中的

文件

变量是一个字符串，是正确的。但是，

文件列表中的每个文件都是

和Excel文件吗？是的，目标中的所有文件都是Excel文件（都是xlsx文件）-使用r似乎很容易，但我仍然有问题。我下载了这两个文件，唯一的问题是这两个文件不共享相同的列名，因此使用简单的rbind（）这是行不通的。我还建议在将所有数据合并到一起之前将年度和季度信息添加为变量（列），因为Excel表格不包含此信息。'此外：警告消息：在解压（xlsxFile，exdir=xmlDir）中：从zip文件提取时出现错误1'/error我将进一步回复您的原始帖子-为了更好地格式化Sakeyah，我不得不通过excel宏编辑工作簿，以使数据看起来更漂亮，但感谢您的帮助！奇怪的是，我还必须将

for（file\u list[-1]中的文件）添加到for循环中，因为列表中的第一个条目前面有
~$
> library("openxlsx")

> file_list = list.files(pattern = "xlsx$")

> dataset = data.frame()

> for (file in file_list){
+ 
+   print(file)
+   temp = read.xlsx(file,sheet = 1, colNames = F)
+   temp$quarter = substr(file,1,2)
+   temp$year = s .... [TRUNCATED] 
[1] "~$Q1, 2011 - Halton, all home types.xlsx"
Error in file(con, "r") : invalid 'description' argument
In addition: Warning message:
In unzip(xlsxFile, exdir = xmlDir) : error 1 in extracting from zip file

library("openxlsx")

file_list = list.files(pattern = "xlsx$")

dataset = data.frame()

for (file in file_list){
    print(file)
    temp = read.xlsx(file,sheet = 1, colNames = F)
    temp$quarter = substr(file,1,2)
    temp$year = substr(file,4,8)
    dataset = rbind(dataset,temp)
}