Используя rep() в цикле for

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)

это должна быть уникальная комбинация целых чисел 1:20 в матрице 4 на 160000....