将周数更改为已过去的周数，而不是一年中的周数答案

【问题标题】：Change Week Numbers to number of weeks that have passed rather than week number of the year将周数更改为已过去的周数，而不是一年中的周数
【发布时间】：2021-08-12 04:40:49
【问题描述】：

我正在尝试在数据集中创建一个列，该列将指示连续数据是在哪周收集的。我已经使用以下代码找到解决方案的中途：

df$Week <- as.integer(format(df$Date_time, "%V"))
df<- transform(df, Week = Week - min(Week) + 1)

这会生成我想要的列，但是，它会按一年中的周数对周数进行编号，从 49 开始，而不仅仅是从 1 开始的累积周数。我试图将周数减去“周”列中的最小值并加 1，但它似乎不起作用。


    Target_length_across_beams Target_range_extent Ping_number         Target_class Target_orientation ...45        Date_time      Week
                       -9.9e+37            -9.9e+37           0 Unclassified targets           -9.9e+37    NA 2020-12-01 18:14:54   49
                       -9.9e+37            -9.9e+37           0 Unclassified targets           -9.9e+37    NA 2020-12-01 18:14:54   49
                       -9.9e+37            -9.9e+37           0 Unclassified targets           -9.9e+37    NA 2020-12-01 18:14:54   49
                       -9.9e+37            -9.9e+37           1 Unclassified targets           -9.9e+37    NA 2020-12-01 18:14:55   49
                       -9.9e+37            -9.9e+37           1 Unclassified targets           -9.9e+37    NA 2020-12-01 18:14:55   49
                       -9.9e+37            -9.9e+37           1 Unclassified targets           -9.9e+37    NA 2020-12-01 18:14:55   49

我想要将周列中的“49”更改为“1”，并且该值连续每周增加 1。

【问题讨论】：

标签： r datetime

【解决方案1】：

不太确定这是不是你想要的：

library(lubridate)
library(tidyverse)

set.seed(1)
df1 <- data.frame(date = ymd("2020-01-01") + runif(4, 0, 365)) %>%
  arrange(date)
df1 %>%
  mutate(week = week(date),
         week_xx = week - min(week) + 1
  )
#>         date week week_xx
#> 1 2020-04-06   14       1
#> 2 2020-05-15   20       7
#> 3 2020-07-28   30      17
#> 4 2020-11-27   48      35

【讨论】：