Получить самый длинный элемент списка

Question

Предположим, у вас есть список data.frames как

dfs <- list(
    a = data.frame(x = c(1:4, 7:10), a = runif(8)), 
    b = data.frame(x = 1:10, b = runif(10)), 
    c = data.frame(x = 1:10, c = runif(10)) 
) 

Теперь я хотел бы, чтобы извлечь самую длинную data.frame или data.frames в этом списке. Как?

Я застрял в этой точке:

library(plyr) 
lengths <- lapply(dfs, nrow) 
longest <- max(lengths) 

Answer 1

Есть две встроенные функции в R который мог бы решить ваш вопрос по моему мнению:

1. which.max: возвращает индекс первого элемента вашего списка, который равен максимальному

   > which.max(lengths) 
   [1] 2 
   

2. , который возвращает все индексы, которые истинны здесь:

   > which(lengths==longest) 
   [1] 2 3 
   

Затем вы можете подмножить свой список на нужный элемент:

dfs[which(lengths==longest)] 

вернет b и c в вашем примере.

Answer 2

cnt <- sapply(dfs, nrow) 
dfs[cnt == max(cnt)] 

Или, если вам нужно только первое вхождение максимальной длины:

dfs[which.max(cnt)]