从 R 读取许多 Excel 文件

Question

这是我第一次使用 R，所以也许问题很微不足道

我需要从 url 的 xls 文件下载日期，每个文件都应该在一个数据框中。喜欢here 。

我决定使用gdata包(包“xlsReadWrite”不适用于R版本3.1.0，RODBC不适用于win64)

下载一个文件效果很好(年份例如 = 2013 )

readxls<-function()
{
  library("gdata")
  link<-paste0("http://nbp.pl/kursy/archiwum/archiwum_tab_a_",year,".xls")
  xlsdata <<- read.xls(link, sheet = 1, perl = "C:\\Perl64\\bin\\perl.exe", header=TRUE) 
}

我尝试使用循环将许多 .xls 读入 list() 中。 (例如 y_begin=2012、y_end=2014)

readxls<-function()
{
  library("gdata")

  ldata<<- list()
  j=1
  for (i in y_begin:y_end)
  {
    link<-paste0("http://nbp.pl/kursy/archiwum/archiwum_tab_a_",i,".xls")
    xlsdata <<- read.xls(link, sheet = 1, perl = "C:\\Perl64\\bin\\perl.exe", header=TRUE) 

    ldata[j] <<- xlsdata
    j<-j+1
  }
}

我认为之后我可以合并它们，但不知道如何从列表中的单个数据帧中获取数据例如 > View(ldata[2]) 仅返回第一列

Answer 1

避免使用 for 循环，特别是因为它的副作用。最好在这里使用lapply。这是 R 的做事方式(函数式编程)。在这里我会这样做:

library(gdata)
readxls<-function()
{
  ids <- seq(y_begin,y_end)
  links <-paste0("http://nbp.pl/kursy/archiwum/archiwum_tab_a_",ids,".xls")

  lapply (links,function(i)
     read.xls(link, sheet = 1, perl = "C:\\Perl64\\bin\\perl.exe", header=TRUE) 
  )
}

这将返回 data.frame 列表，以合并它们，假设它们相同:

ll <- readxls()
do.call(rbind,ll)