对于R中的列表，我希望应用一个函数来接受每个列表中的每个元素并返回三个数字，即输入值加上1、2和3.我希望创建一个列表列表，以便为原始列表的每个组件返回一个列表，其中该列表的每个组件都是原始列表的每个元素的输出.对于列表的所有组件，我得到一个列表的列表.
具体来说，
对于列表lst <- list(a = 1:3, b = 4:5, c = 6:8)，
我想要一份 list 如下:
> lst2
[[1]]
[[1]][[1]]
[1] 2 3 4
[[1]][[2]]
[1] 3 4 5
[[1]][[3]]
[1] 4 5 6
[[2]]
[[2]][[1]]
[1] 5 6
[[2]][[2]]
[1] 6 7
[[3]]
[[3]][[1]]
[1] 7 8 9
[[3]][[2]]
[1] 8 9 10
[[3]][[3]]
[1] 9 10 11
我想在TidyVerse生态系统中使用PURR(R)包(S)中的MAP函数或相关函数来完成任务.使用以r为基数的Map或Apply函数族就可以了.我只是不想使用for循环.
使用lapply或purrr::map，你可以做到:
lst <- list(a = 1:3, b = 4:5, c = 6:8)
lst |>
unname() |>
lapply(\(el) lapply(el, \(x) seq(length(el)) + x))
#> [[1]]
#> [[1]][[1]]
#> [1] 2 3 4
#>
#> [[1]][[2]]
#> [1] 3 4 5
#>
#> [[1]][[3]]
#> [1] 4 5 6
#>
#>
#> [[2]]
#> [[2]][[1]]
#> [1] 5 6
#>
#> [[2]][[2]]
#> [1] 6 7
#>
#>
#> [[3]]
#> [[3]][[1]]
#> [1] 7 8 9
#>
#> [[3]][[2]]
#> [1] 8 9 10
#>
#> [[3]][[3]]
#> [1] 9 10 11
EDIT对于您try 在注释中使用map的方法，您必须注意myFunA带有两个参数，即您需要将外部列表的长度传递给myFunA.
myFunA <- function(x, n) seq_len(n) + x
myFunB <- function(y) purrr::map(y, myFunA, n = length(y))
purrr::map(unname(lst), myFunB)