목록 내가 (정말 인덱스 위치) 번호 목록을

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 

일 때문에 원래의 인덱스이고, 2는 원래의 인덱스이기 때문에 그 길이가 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 

이고 길이가 26

입니다 : 같은 구체적 결과가 보일 것이다 원래의 인덱스이고 길이만큼 내가 인덱스 위치에 액세스 할 수 있습니다로, 내 마음에서 27 입니다

[[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 있기 때문에, 그것의 모양은 다음과 같습니다

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 

---

몇몇 다른 옵션 4,

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)