如何从R中的年周/周数中减去周数

Question

我有几周感兴趣。让我们以"202124"(本周(为例。如何从这个星期数中减去x星期？假设我想知道2周前的周数，理想情况下我想做202124 - 2，这会给我202122。这在一年中的大部分时间都很好，但202101 - 2将给出202099，这显然不是一个有效的周数。这种情况会大规模发生，因此需要一个更优雅的解决方案。我该怎么做？

Answer 1

将年周值转换为以天为单位的日期减法，并设置输出格式。

x <- c('202124', '202101')
format(as.Date(paste0(x, 1), '%Y%W%u') - 14, '%Y%V')
#[1] "202122" "202052"

为了将年周值转换为日期，我们还需要一周中的某一天，我将其用作一周中第一天。