1

我有一个x包含数百万条目的列表。我想将所有长度大于一的条目放入一个新列表中z。我怎样才能在 R 中有效地做到这一点？

我尝试了这段代码，而 R 只是保持运行很长时间。

z=NULL
for(i in 1:length(x)) {
  if(length(x[[i]])!=1) z=list(z,x[[i]])
}
4

2 回答 2

6

这是您要使用的一种情况vapply：

z <- x[vapply(x, length, integer(1)) > 1L]

以下是比较sapply和的基准vapply：

A <- list( x = c(), y = c(1), z = c(1, 2))
B <- A[sample(1:3, 1e7, replace = TRUE)]
system.time(sapply(B, length))
#    user  system elapsed 
#   55.95    0.54   56.50 
system.time(vapply(B, length, integer(1)))
#    user  system elapsed 
#    6.78    0.00    6.78
于 2012-11-02T18:41:52.560 回答
5

做就是了：

z = x[sapply(x, length) > 1]
于 2012-11-02T18:34:36.647 回答