R의 복제는

Question

우리는 다음과 같은이 말 충족 :

a=c(1, 9, 5, 7, 8, 11) 
length(a) ## 6 

내가 가져올 :이 경우 10,

이

a_desired=c(1, 1, 9, 9, 5, 5, 7, 7, 8, 11) 
length(a_desired) ## 10 

기본적으로 그것이 원하는 길이에 도달하면 복제 정지 .

원하는 길이가 14 인 경우,

a_desired=c(1, 1, 1, 9, 9, 9, 5, 5, 7, 7, 8, 8, 11, 11) 

,617,

누구나이 도구를 구하는 방법에 대한 제안이 있습니까? 아니면 비슷한 질문에 대한 링크가 있습니까? (검색 할 키워드가 너무 많지 않습니다.)

Answer 1

다음과 같은 함수를 작성할 수 있습니다

extend_to <- function(x, len) { 
    stopifnot(len>0) 
    times = len %/% length(x) 
    each <- rep(times, length(x)) 
     more <- len-sum(each) 
     if (more>0) { 
     each[1:more] <- each[1:more]+1 
     } 
     rep(x, each) 
} 


a <- c(1, 9, 5, 7, 8, 11) 
extend_to(a, 6) 
# [1] 1 9 5 7 8 11 
extend_to(a, 10) 
# [1] 1 1 9 9 5 5 7 7 8 11 
extend_to(a, 14) 
# [1] 1 1 1 9 9 9 5 5 7 7 8 8 11 11 
extend_to(a, 2) 
# [1] 1 9 

우리는 각 요소를 특정 횟수를 반복하는 rep()를 사용합니다.

N < = 2M : 이중 첫 번째 (NM) 항목

2M < N

Answer 2

그래서 시퀀스는 길이 M의 현재 당신이 원하는 경우> M은, 당신은 이러한 가능성을 길이 N이 < = 3M : 트리플 제 (N-2M) 항목 이중 나머지

3M < < N = 4M : 사중 제 (N-3M) 항목 트리플 나머지.

등등.

먼저 대상 길이를 현재 길이로 나눈 다음 바닥을 가져 와서 여러 번 반복합니다. 그런 다음 첫 번째 나머지 사본을 추가하십시오 항목.

a=c(1, 9, 5, 7, 8, 11) 
m=length(a) 

n=10 # desired new length 

new_a = append(
    rep(a[1:(n%%m)],each=ceiling(n/m)), 
    rep(a[((n%%m)+1):m],each=floor(n/m)))