Question

我正在尝试从列表列表中构建序列。

说我有两个清单：

l1 <- list(c(1,2,3), c(3,4,5,6))
l2 <- list(c(3,4,5), c(5,6,7,8))

我想创建一个列表，其中包含l1和l2中元素之间的序列，如下所示：

l12
[[1]]
[1] 1 2 3
[2] 2 3 4
[3] 3 4 5

[[2]]
[1] 3 4 5
[2] 4 5 6
[3] 5 6 7
[2] 6 7 8

如果这些只是矢量，我会这样做：mapply(seq, l1, l2) 对于这种情况，是否有类似的解决方案？

Answer 1

您只需要嵌套另一个mapply。

mapply(
  function(x, y) t(mapply(seq, x, y)),
  l1,
  l2)
#> [[1]]
#>      [,1] [,2] [,3]
#> [1,]    1    2    3
#> [2,]    2    3    4
#> [3,]    3    4    5
#> 
#> [[2]]
#>      [,1] [,2] [,3]
#> [1,]    3    4    5
#> [2,]    4    5    6
#> [3,]    5    6    7
#> [4,]    6    7    8

以下是使用tidyverse的{{1}}解决方案。

purrr

Answer 2

lapply/mapply的解决方案可能是

lapply(seq_along(l1), function(i) mapply(`:`, l1[[i]], l2[[i]]))
#[[1]]
#     [,1] [,2] [,3]
#[1,]    1    2    3
#[2,]    2    3    4
#[3,]    3    4    5
#
#[[2]]
#     [,1] [,2] [,3] [,4]
#[1,]    3    4    5    6
#[2,]    4    5    6    7
#[3,]    5    6    7    8

从列表列表

2 个答案: