访问嵌套列表中的数据框

Question

我有一个包含三种不同类型数据集的列表，每种类型有十个数据集。它看起来像这样：

mat1 <- replicate(n=10,data.frame(matrix(data=rnorm(20,0,1),nrow=5,ncol=5)),simplify=FALSE)
mat2 <- replicate(n=10,data.frame(matrix(data=rnorm(20,0,1),nrow=5,ncol=5)),simplify=FALSE)
mat3 <- replicate(n=10,data.frame(matrix(data=rnorm(20,0,1),nrow=5,ncol=5)),simplify=FALSE)
combined <- list(mat1,mat2,mat3)

我想对每个数据集应用相同的函数，但我不知道如何访问它们。我尝试使用 purrr 中的地图，但它仅将其应用于列表中的第一个：

map(combined[[i]],~length(.))

[[1]]
[1] 5

[[2]]
[1] 5

[[3]]
[1] 5

[[4]]
[1] 5

[[5]]
[1] 5

[[6]]
[1] 5

[[7]]
[1] 5

[[8]]
[1] 5

[[9]]
[1] 5

[[10]]
[1] 5

如何将函数应用于嵌套列表中的所有数据集？

*该函数比 length 更复杂 - 它是另一个包中的函数，我需要使用 ~function 访问它

Answer 1

您可以在combined 中的每个列表上应用lengths ：

lapply(combined, lengths)

#[[1]]
# [1] 5 5 5 5 5 5 5 5 5 5

#[[2]]
# [1] 5 5 5 5 5 5 5 5 5 5

#[[3]]
# [1] 5 5 5 5 5 5 5 5 5 5

使用purrr的map：

purrr::map(combined, lengths)

---

如果length 只是一个示例，并且您想要一种通用方法将函数应用于每个嵌套列表，您可以使用嵌套lapply：

lapply(combined, function(x) lapply(x, function(y) length(y)))

或者使用rapply：

rapply(combined, length, how = 'list')