从长度（df）大于4的列表中打印数据帧

Question

尝试打印长度（df）大于4的列表中的所有数据帧。我一直试着没有运气：

## dummy data from Zelazny7
list1 <- list(mtcars[1:10, ], mtcars[1:2,], mtcars)

sapply(list1, function(x) {
    if(length(x) > 4) { list1 <- x }
})

Answer 1

一些虚拟数据

list1 <- list(mtcars[1:10, ], mtcars[1:2,], mtcars)

只需将列表索引为nrows＆gt; 4：

list1[sapply(list1, nrow) > 4]