使用rep/seq创建ID列

Question

是否有一种使用rep/seq或其他函数创建ID列的有效方法？

1，2，3，4，4，5，5，6，6，7，7，8，8，8，9，9，9，10，10，10.

因此，每3个数字，下面的3个数字会被重复一次。我的实际数据需要一个序列，即：

1:1000- 1人

1001:2000-每个2人

2001年:每个3000至3个.

任何想法/帮助都将不胜感激。

Answer 1

我们可以用

v2 <- 1:7000
rep(v2, as.integer(gl(length(v2), 1000, length(v2))))

对于第一种情况

v1 <- 1:15
rep(v1, as.integer(gl(length(v1), 3, length(v1))))
 [1]  1  2  3  4  4  5  5  6  6  7  7  7  8  8  8  9  9  9 10 10 10 10 11 11 11 11 12 12 12 12 13 13 13 13 13 14 14 14 14 14 15 15 15 15

Answer 2

我们可以在rep内部使用rep.int。

第一例：

rep.int(1:12, rep(1:4, each = 3))

第二个案件：

rep.int(1:3e3, rep(1:3, each = 1e3))