如何返回最大nrow数据帧列表？

Question

给定最小的数据示例：

dfA <- data.frame(A=c("a","a","a"))
dfB <- data.frame(B=c("b","b"))
dfC <- data.frame(C=c("c","c","c"))
combineList <- list(dfA, dfB, dfC)

我想返回一个列表，每个列表元素一个数据框，具有最大行数的数据框，即 dfA 作为一个列表元素，dfC 作为第二个列表元素。它应该忽略 dfB，因为它的行数太少。

另一个例子：

dfA <- data.frame(c("a","a","a"))
dfB <- data.frame(c("b","b"))
dfC <- data.frame(c("c","c","c"))
dfD <- data.frame(c("d","d","d","d","d"))
combineList <- list(dfA, dfB, dfC, dfD)

我应该只有一个元素的列表：dfD，因为它有五个元素。

我试图避免一些神秘的 C 风格的带有整数标志的 for 循环。

Answer 1

我们可以使用这个：

ind <- sapply(combineList, nrow)
combineList[ind==max(ind)]

Answer 2

我们可以使用

combineList[which.max(sapply(combineList, nrow))]