1

我对 XLConnect 库有疑问。它的 system.file 函数，我只见过与它一起使用

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

其中文件总是等于一个字符串。但是，我有一个字符串列表，其中包含每个文件的文件名。我在遍历列表的 for 循环中有这个。无论出于何种原因，即使文件对象具有等效的“soandso.xlsx”，file1 也是空的。

所以我的问题是我需要文件是一个字符串吗？

编辑#1：所以我从使用给我一个单独的错误的 XLConnect 库切换到 xlsx 库，至少现在，我可以让代码运行，尽管有不同的错误。

我认为我正在取得进展，因为我的代码在第一个循环之后没有成功运行（因为 k 增加到 2）并且我有一些东西填充了我的数据集变量（我存储“read.xlsx2”响应的地方）。

我附上了我当前错误的截图：

Error in .jcall("RJavaTools", "Ljava/lang/Object;", "invokeMethod", cl,  : java.lang.IllegalArgumentException: Your InputStream was neither an OLE2 stream, nor an OOXML stream

我的 R Studio 的屏幕截图

编辑＃2：

https://www.dropbox.com/s/s9413oee146v497/Q1%2C%202011%20-%20Halton%2C%20all%20home%20types.xlsx?dl=0 https://www.dropbox.com/s/ tgaup2ihnlq7br2/Q4%2C%202015%20-%20Halton%2C%20condo%20types.xlsx?dl=0

我已经包含了需要附加的 2/60 文件。我目的地的所有文件都是 Excel 文件，它们有 10 列宽和可变行长 - 由于新区域或只是被重命名的区域。我得到的新错误是：

另外：警告消息：在 unzip(xlsxFile, exdir = xmlDir) 中：从 zip 文件中提取时出现错误 1

编辑#3：

source('~/.active-rstudio-document', echo=TRUE)

> 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

抱歉，我仍然遇到问题，但我知道问题出在哪里。由于某种原因，作为文件打印的文件前面带有“~$”，当我只输入文件名“Q1, 2011 - Halton, all home types.xlsx”作为文件时，它可以工作，我得到的数据是输入到数据框中。现在这个问题我显然不能大量导入 60 个不同的 Excel 名称......

4

1 回答 1

1

尝试使用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： 添加了一个 print(file) 来检测哪个 xlsx 文件有解压缩问题。

编辑 2： 通过从文件名中读取季度和年份信息来添加它们。这仅在所有文件名都遵循相同模式时才有效。

于 2016-03-24T06:38:52.473 回答