我有一个数字列表(实际上是索引位置),如下所示:
> 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是original的索引,它的长度是27 在我看来,只要我可以访问索引位置,它就应该看起来像这样:
lapply(original, function(x) rep(index(x), length(x)))
这失败了,因为我显然无法以这种方式访问 lapply 中的列表索引,也无法通过我尝试过的任何其他方式访问。
以前有人做过吗?
最佳答案
您可以在此处使用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]])))
并使用 purrr
中的 map2
library(purrr)
original %>% map2(.y=seq_along(original),~rep(.y,length(.x)))
关于r - 如何访问列表索引,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47586903/