如果只给出几周的时间，则提取几周

Question

i有一个数据集，该数据集具有3个变量 - 年，月(在Intergers(和NP(值(。我必须每周处理数据。如何从以下数据中提取周数？另外，必须相应地更改NP。

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