如何從一個長列表子集？

Question

我有一個列表x其中有數百萬條目。我想將所有長度大於1的條目放入新列表z。我如何在R中有效地做到這一點？

我試過這段代碼，而R只是一直運行很長時間。

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

Answer 1

只要做到：

z = x[sapply(x, length) > 1] 

Answer 2

這是您要使用一個案例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