如果仅提供年份和月份，则提取周数

Question

我有一个包含3个变量的数据集 - 年，月（以整数形式）和NPS（值）。我必须每周处理一次数据。如何从以下数据中提取周数？此外，必须相应更改NPS。

Year        Month           NPS
2015         10             51
2015         11             50.5
2015         12             50

Answer 1

根据评论中提到的，如果你想要一个日期范围，你可以这样做：

library(lubridate)

Start <- as.Date(zoo::as.yearmon(paste0(df$Year, df$Month), "%Y%m"))
End   <- Start %m+% months(1) - 1

df$Weeks <- paste(week(Start), week(End) - 1, sep = "-")

给出了：

#  Year Month  NPS Weeks
#1 2015    10 51.0 40-43
#2 2015    11 50.5 44-47
#3 2015    12 50.0 48-52