эквивалентный способ использования семейства apply вместо цикла for для получения максимального значения каждой строки в списке подписок R

Question

Что было бы эквивалентно этому, используя функции семейства apply или комбинацию между do.call и apply? Я хотел бы сохранить его простым и, если это возможно в одной строке:

a <- list( as.data.frame(matrix(rnorm(12),4,3)), 
      as.data.frame(matrix(rnorm(12),4,3)), 
      as.data.frame(matrix(rnorm(12),4,3)) 
     ) 

l <- list() 
for (i in 1:length(a)) { 
    l[[i]] <- apply(a[[i]],1,max) 
} 

b <- do.call(data.frame, l) 

Answer 1

Я хотел бы использовать sapply для этого конкретного примера, однако я не знаю, как представитель, этот пример вашей фактической большей проблемы.

> sapply(a, function(x) apply(x, 1, max)) 
      [,1]  [,2]  [,3] 
[1,] 0.5757814 0.9189774 0.6198257 
[2,] 0.1836433 0.9438362 0.4179416 
[3,] 1.5117812 1.1249309 1.3586796 
[4,] 1.5952808 0.5939013 -0.1027877 

sapply упростит матрицу, когда это возможно. Если вы хотите data.frame, просто оберните вывод в data.frame.