r - 在 for 循环中使用 rep()

Question

如何在向量中重复整数 1:20 20 次？

我想要类似的东西

s <- 1,1,1,2,2,2,3,3,3 etc.....

（除了 20 个 1，然后 20 个 2，然后 20 个 3 ......你明白了）

我正在尝试这个

l <- 1:20
S <- for(i in l) rep(i, 20)

一个班轮会很棒，像这样

S <- for (i in 1:20, rep(i, 20))

但我很挣扎。

谢谢，

杰西

Answer 1

所以答案肯定是

s <- as.numeric(rep(1:20, each = 20))

但是如果我想做这样的事情怎么办

y <- 3500, 3750, 4000, 4250.... 6000

将

y <- 3250 + rep(250, 11)

工作？

尽我所能回答...

a <- rep(1:20, each=8000)
b <- rep(rep(1:20, each=400), 20)
c <- rep(rep(rep(1:20, each=20), 20), 20)
d <- rep(1:20, 8000)

df <- cbind(a,b,c,d)

这应该是 4 x 160000 矩阵中整数 1:20 的唯一组合....