如何快速阅读和组合Excel文件

Question

我有这些excel表有数百/数千行，我需要阅读它们并获得特定的值来绘制。

我的代码看起来像这样

h2ax.read <- function(file){
  require(xlsx)
  lfile = list.files( pattern = file)
  ldata = lapply(lfile, read.xlsx, sheetIndex = 1)
  combined1 = do.call("rbind", ldata)
}

即使是每个1000行的2个excel文件也需要相当长的时间

system.time(h2ax.read("1nmE2"))
   user  system elapsed 
118.976   0.801 141.135 

我应该做些什么来改善时间，因为我需要从另一个函数调用此函数来读取许多这样的excel文件。感谢。