list - 仅将 apply() 应用于深度嵌入的列表元素

Question

我想将我的函数仅应用于列表结构中更深的元素。

例如，我想将某个函数应用于仅列出二阶元素。这对 apply() 可行吗？

> str(l)
List of 3
 $ :List of 2
  ..$ : num 5
  ..$ : num 10
 $ :List of 2
  ..$ : num 15
  ..$ : num 20
 $ :List of 2
  ..$ : num 25
  ..$ : num 30

Answer 1

使用双lapply

L <- list(
    list(rnorm(10),rnorm(10)),
    list(c(rnorm(10),NA),rnorm(10)),
    list(rnorm(10),rnorm(10))
    )
str(L)

L_out <- lapply(L, lapply, function(x) c(max(x),mean(x), mean(x,na.rm=TRUE)))
str(L_out)
# List of 3
#  $ :List of 2
#   ..$ : num [1:3] 0.958 0.127 0.127
#   ..$ : num [1:3] 0.981 -0.262 -0.262
#  $ :List of 2
#   ..$ : num [1:3] NA NA -0.443
#   ..$ : num [1:3] 1.126 -0.504 -0.504
#  $ :List of 2
#   ..$ : num [1:3] 1.432 -0.174 -0.174
#   ..$ : num [1:3] 1.102 -0.311 -0.311

Answer 2

不知道“r”，但我确信您可以应用一个应用您的功能的功能。让你的功能是 f，然后改为 apply f write apply (apply f)

在haskell-ish

data = [[5,10], [15,20], [25,3]]

假设我们想给每个数字加 1：

map (map (+1)) data