将元素插入到给定位置的向量中,给定次数

Question

我有矢量x <- c(1:50),我想插入y <- c(1,2)每10个位置5次.

x <- c(1:50)
y <- c(1,2)
z <- c(seq(10,50,10))

该产品必须是这样的:

 1  2  3  4  5  6  7  8  9 10 1 2 11 12 13 14 15 16 17 18 19 20 1 2 21 22 23 24 25 26 27 28 29 30 1 2 31 32 33 34 35 36 37 38 39 40 1 2 41 42 43 44 45 46 47 48 49 50 1 2

我尝试过追加,但它不使用"时代"......

Answer 1

我们可以split将"X"成list的vector基础上创建的分组指标%/%``, concatenate (Ç ) with the 'y' using 'Map并unlist在list得到vector

unlist(Map(c, split(x, (x-1)%/%10), list(y)), use.names = FALSE)
#[1]  1  2  3  4  5  6  7  8  9 10  1  2 11 12 13 14 15 16 17 18 19 20  1  2 21
#[26] 22 23 24 25 26 27 28 29 30  1  2 31 32 33 34 35 36 37 38 39 40  1  2 41 42
#[51] 43 44 45 46 47 48 49 50  1  2