リスト私は（実際にインデックス位置）番号のリストを持っている

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 

は私がに応じて、元のリストのインデックスのそれぞれを複製し、別のリストを返したいですサブリストの長さ。具体的には、結果は次のようになります：1は、オリジナルとその長さの指標であるため、

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

を2は、元のインデックスであり、その長さは26

であるため、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 

です

[[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 

再生が容易であるため、別の例をとります。のみlapply

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

---

を使用し、0123を使用して

：

データ

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 

---

いくつかの他のオプション

library(purrr) 
original %>% map2(.y=seq_along(original),~rep(.y,length(.x))) 

Answer 2

purrrからあなた骨格と元のリストを使用してインデックスのベクトル、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)