Question

我有一个数字列表（真正的索引位置），如下所示：

> original
[[1]]
[1] 99 100

[[2]]
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

[[3]]
 [1] 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

[[4]]
 [1] 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

我想返回另一个列表，该列表根据子列表的长度复制原始列表的每个索引。具体来说，结果应该类似于：

> result
    [[1]]
    [1] 1 1

因为1是原始索引，长度是2

    [[2]]
     [1] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2

因为2是原始索引，其长度为26

    [[3]]
     [1]  3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3

因为3是原始索引，长度是27 在我看来，只要我可以访问索引位置，它应该看起来像这样：

lapply(original, function(x) rep(index(x), length(x)))

这失败了，因为我显然无法以这种方式访问lapply中的列表索引，也没有尝试过任何其他方式。

以前有人这样做过吗？

Answer 1

您可以在此处使用mapply来访问索引以及列表元素。

mapply(function(x, y) rep(x, length(y)), seq_along(original), original)

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

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

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

采用不同的例子，因为它很容易重现。

数据

original <- list(c(1:3), c(4, 5), c(1:8)) original #[[1]] #[1] 1 2 3 #[[2]] #[1] 4 5 #[[3]] #[1] 1 2 3 4 5 6 7 8

很少有其他选择：

仅使用lapply

lapply(seq_along(original), function(x) rep(x, length(original[[x]])))

并使用map2
中的purrr
library(purrr) original %>% map2(.y=seq_along(original),~rep(.y,length(.x)))

Answer 2

您可以relist()使用原始列表作为骨架的索引向量。

relist(rep(seq_along(original), lengths(original)), original)
# [[1]]
# [1] 1 1 1
#
# [[2]]
# [1] 2 2
#
# [[3]]
# [1] 3 3 3 3 3 3 3 3

数据：

original <- list(1:3, 4:5, 1:8)

如何访问列表索引

2 个答案: