m <- matrix(1:9, ncol=3)
list1 <- vector("list", 3)
list1 <- lapply(list1, function(x) x <- m)
list2 <- vector("list", 3)
list2 <- lapply(list2, function(x) x <- list1)
list2
我想获得一个与list2
结构相同的对象,其中包含矩阵函数的返回值(在我的例子中是colMeans)。这应该适用于最多 n 维。
我正在尝试嵌套 lapply,但它不会保留名称,我确信这里有人知道更聪明的方法来做到这一点。
谢谢!
最佳答案
rapply(list2, colMeans, how="replace")
关于R:将函数应用于嵌套列表的最后一层并保留名称和结构,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26145176/