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

尝试打印长度（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 }
})

来自Zelazny7的虚拟数据 list1 4）{list1一些伪数据

---

如果这些是数据框，请确保你真的想使用<代码>长度>代码>而不是<代码> nRo> <代码>。我不确定我是否理解“数据框”。你是指“列”吗？<代码>过滤器（函数（x）nROX（x）＞4，List1）< /C> > RAWR，我没有看到你的评论。无论如何，删除我的答案。请考虑把它作为答案。

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

list1[sapply(list1, nrow) > 4]