计算R中的周数

Question

关于特定日期的周数，我找到了很多答案。我想要的是获得一个2周的周数，即第一年它将给予1至53周，然后将计数保持在53而不应该再从1开始。 R？有可能吗？示例数据如下所示：

Answer 1

我们可以在找到每年的观察次数后，使用rep向vector（'vN2'）添加53.

vN2 + rep(c(0, 53), tapply(vN2, cumsum(c(TRUE, diff(vN2) < 0)), FUN = length))

数据

set.seed(24)
vN <- rep(1:53, sample(1:5, 53, replace=TRUE))
vN1 <- rep(1:53, sample(1:6, 53, replace=TRUE))
vN2 <- c(vN, vN1)