将week.year转换为year.month-R中的日期

我想在ISO 8601中将日期week.year（“44.2016”）转换为year.month（2016-11）

---

我有一个变量

date\u week注意，您需要指定一天，因为一周可能意味着连续两个月。试试这个：

as.Date(paste("1", date_week, sep = "."), format = "%w.%W.%Y") # 1st day (monday 31 oct 2016)
as.Date(paste("2", date_week, sep = "."), format = "%w.%W.%Y") # 2nd day (Tuesday 01 nov 2016)
# new format 
format(as.Date(paste("1", date_week, sep = "."), format = "%w.%W.%Y"), "%Y-%m")
# [1] "2016-10"
format(as.Date(paste("2", date_week, sep = "."), format = "%w.%W.%Y"), "%Y-%m")
# [1] "2016-11"

这有帮助吗<代码>格式（tail（seq（as.Date（“2016-01-01”），by=“1天”，length.out=44*7），1L），“%Y-%m”）

as.Date（粘贴（“1”，Date\u-week，sep=“”），格式=“%w.%Y”）

？看起来2016年第44周实际上是从10月31日开始的，它不起作用@chinsoon12是的@ANG！谢谢大家！

as.Date(date_week, format = "%w.%Y")

as.Date(date_week, format = "%w.%Y")

as.Date(paste("1", date_week, sep = "."), format = "%w.%W.%Y") # 1st day (monday 31 oct 2016)
as.Date(paste("2", date_week, sep = "."), format = "%w.%W.%Y") # 2nd day (Tuesday 01 nov 2016)
# new format 
format(as.Date(paste("1", date_week, sep = "."), format = "%w.%W.%Y"), "%Y-%m")
# [1] "2016-10"
format(as.Date(paste("2", date_week, sep = "."), format = "%w.%W.%Y"), "%Y-%m")
# [1] "2016-11"