每第 n 个元素重复序列 x 次

Question

我有一个向量，例如:

v <- c(1, 2, 3, 4)

我想将每个第 n 个元素的序列重复 x 次，例如:

x=2
n= 2

[1] 1, 2, 1, 2, 3, 4, 3, 4

我知道

rep(v, times=n)
[1] 1, 2, 3, 4, 1, 2, 3, 4

rep(v, each=n)
[1] 1, 1, 2, 2, 3, 3, 4, 4

谢谢!

Answer 1

你可以分割向量然后重复:

fun <- function(v, m, n) {
  unlist(by(v, ceiling(seq_along(v) / m), rep, n), use.names = FALSE)
}

v <- c(1, 2, 3, 4)

fun(v, 2, 2)
# [1] 1 2 1 2 3 4 3 4

fun(v, 3, 3)
# [1] 1 2 3 1 2 3 1 2 3 4 4 4