有没有一种快速的方法来提取数据帧列表中的元素？

Question

我正在尝试找到一种快速的方法来提取数据帧列表中的元素。

为此，我已经测试了功能lapply。这是一个可重现的示例：

  i <- 2
  dat <- replicate(100000, data.frame(x=1:5000, y = 1:5000, z = 1:5000), simplify=FALSE)
  system.time(test <- lapply(dat, function(y) y[i, c("x", "y")]))

   user  system elapsed 
   7.69    0.00    7.73

理想情况下，经过时间应为<= 1秒。