我正在做一项任务,我需要获取一个月中特定一周的天数。 例如-在2018年的第5周-一月有3天,2月有4天。 如何获取月份(1月,2月)和天数(分别为3,4)
答案 0 :(得分:1)
使用as.Date
和table
的方法:
year <- 2018
weeknumber <- 5
ENDDATE <- as.Date(paste(year, weeknumber, 1, sep="-"), "%Y-%U-%u")
table(format.Date(seq(ENDDATE-7, ENDDATE-1, 1), "%b"))
Feb Jan
4 3
答案 1 :(得分:0)
润滑选项
library(lubridate)
start_date <- "2018-01-01"
week_number <- 5
table(months(date(start_date) + weeks(week_number) - 1:7))
#February January
# 4 3
week_number <- 9
table(months(date(start_date) + weeks(week_number) - 1:7))
#February March
# 3 4