在序列中每隔 n 个重复第 n 个元素

Question

原始向量x:

x = 1:20

我寻找的是一个向量 y，它每隔 n 次重复 x 中的第 n 个元素，例如，当 n=4:

n = 4
y = c(1,2,3,4,4,5,6,7,8,8,9,10,11,12,12,13,14,15,16,16,17,18,19,20,20)

我实际上是在为矩阵做这件事，我认为这与 margin=2 时 apply 的使用有关，但无法立即弄清楚 bat ，谁能告诉我一个快速的解决方案？

Answer 1

我们也可以用

v1 <- rep(1, length(x))
v1[c(FALSE, FALSE, FALSE, TRUE)] <- 2
rep(x, v1)
#[1]  1  2  3  4  4  5  6  7  8  8  9 10 11 12 12 13 14 15 16 16 17 18 19 20 20

或者正如@MichaelChirico 评论的那样，第二行代码可以更通用

v1[seq_along(v1) %% n == 0L] = 2

或者在一行代码中使用 ifelse(来自@JonathanCarroll 的评论)

rep(x, ifelse(seq_along(x) %% n, 1, 2))