从 R 中下载和打开 xlsx 文件的问题

Question

我想直接从 R 中下载并打开以下包含月度和年度消费者价格指数的 Excel 文件。

https://www.bfs.admin.ch/bfsstatic/dam/assets/7066959/master （链接可以在本站找到：https://www.bfs.admin.ch/bfs/de/home/statistiken/preise/landesindex-konsumentenpreise/lik-resultate.assetdetail.7066959.html）

我以前使用浏览器手动下载此文件，将其保存在本地计算机上，然后用 R 打开 xlsx 文件并毫无问题地处理数据。

我现在尝试直接从 R 中读取文件，但到目前为止没有运气。从上面的 URL 可以看出，没有 .xlsx 扩展名等，所以我认为文件以某种方式压缩。这是我到目前为止所尝试的以及我遇到的问题。

library(foreign)
library(xlsx)


# in a browser, this links opens or dowloads an xlsx file
likurl <- "https://www.bfs.admin.ch/bfsstatic/dam/assets/7066959/master"

temp <- tempfile()
download.file(likurl, temp)

list.files <- unzip(temp,list=TRUE)

data <- read.xlsx(unz(temp,
                  + list.files$Name[8]), sheetIndex=2)

最后一步的结果是

 Error in +list.files$Name[8] : invalid argument to unary operator

我不太了解 unz 函数，但是在阅读 unz 的帮助文件时可以看出这是某种错误（我在网上某处找到了这个建议的解决方案）。

我还尝试了以下不同的方法：

library(XLConnect)
likurl <- "https://www.bfs.admin.ch/bfsstatic/dam/assets/7066959/master"

tmp = tempfile(fileext = ".xlsx")
download.file(likurl, tmp)
readWorksheetFromFile(tmp, sheet = 2, startRow = 4, 
                  colNames = TRUE, rowNames = FALSE)

最后一行作为结果返回：

 Error: ZipException (Java): invalid entry size (expected 1644 but got 1668 bytes)

在将数据从 excel 读入 R 时，我将非常感谢有关如何打开这些数据并像往常一样使用它的任何帮助。 提前非常感谢！

Answer 1

感谢@Johnny 的提示，这是我的解决方案。使用 xlsx-package 中的 read.xlsx 从 excel 读取数据效果更好（而不是上面链接中建议的 read_excel）。

一些丑陋的细节仍然存在于列的命名方式（colNames 没有正确传递，除了第一列和第 11 列）以及从传递给 read.xlsx 的选项中创建新列的方式（例如，列命名为 colNames，所有条目 == TRUE；有关详细信息，请参阅带有 str(LIK.m)) 的输出结构。但是，这些将是另一个问题，目前，它们可以以快速而肮脏的方式修复:-)。

library(httr)
library(foreign)
library(xlsx)

# in a browser, this links opens or dowloads an xlsx file
likurl<-'https://www.bfs.admin.ch/bfsstatic/dam/assets/7066959/master'
p1f <- tempfile()
download.file(likurl, p1f, mode="wb")

GET(likurl, write_disk(tf <- tempfile(fileext = ".xlsx")))


# annual CPI
LIK.y <- read.xlsx(tf,
             sheetIndex = 2, startRow = 4,
             colNames = TRUE, rowNames = FALSE, stringsAsFactors = FALSE,
             detectDates = FALSE, skipEmptyRows = TRUE, skipEmptyCols = TRUE ,  
             na.strings = "NA", check.names = TRUE,  fillMergedCells = FALSE)

LIK.y$X. <- as.numeric(LIK.y$X.)

str(LIK.y)


# monthly CPI
LIK.m <- read.xlsx(tf,
             sheetIndex = 1, startRow = 4,
             colNames = TRUE, rowNames = FALSE, stringsAsFactors = FALSE,
             detectDates = FALSE, skipEmptyRows = TRUE, skipEmptyCols = TRUE ,  
             na.strings = "NA", check.names = TRUE,  fillMergedCells = FALSE)

LIK.m$X. <- as.numeric(LIK.m$X.)

str(LIK.m)