Я пытаюсь изучить различные способы использования объектов в списке в качестве аргументов FUN
в lapply
. Возьмите эти данные:
A <- list(a = matrix(0, ncol = 3, nrow = 3), b = matrix(0, ncol = 3, nrow = 3))
B <- list(a = matrix(1, ncol = 1, nrow = 3), b = matrix(1, ncol = 1, nrow = 3))
D <- mapply(FUN="list", A, B, SIMPLIFY=F, USE.NAMES=F)
D <- lapply(D, `names<-`, c("first", "second"))
D
[[1]]
[[1]]$`first`
[,1] [,2] [,3]
[1,] 0 0 0
[2,] 0 0 0
[3,] 0 0 0
[[1]]$second
[,1]
[1,] 1
[2,] 1
[3,] 1
[[2]]
[[2]]$`first`
[,1] [,2] [,3]
[1,] 0 0 0
[2,] 0 0 0
[3,] 0 0 0
[[2]]$second
[,1]
[1,] 1
[2,] 1
[3,] 1
Желаемый результат:
[[1]]
[,1] [,2] [,3]
[1,] 0 0 0
[2,] 0 0 0
[3,] 0 0 0
[4,] 1 1 1
[[2]]
[,1] [,2] [,3]
[1,] 0 0 0
[2,] 0 0 0
[3,] 0 0 0
[4,] 1 1 1
Вот как я обычно это делаю:
lapply(D, function(x) rbind(x$first, as.numeric(x$second)))
Теперь мне интересно, есть ли способ избежать использования function(x)
и повторения всех этих x s. Что-то вроде:
lapply(D, "rbind", <args>)
Как я могу сообщить rbind
(или любой другой функции), что я имею в виду объекты в рамках lapply
?
Спасибо,
К.