如何获得2018年第5周的天数(2月下降)

时间:2019-03-31 09:35:16

标签: r date

我正在做一项任务,我需要获取一个月中特定一周的天数。 例如-在2018年的第5周-一月有3天,2月有4天。 如何获取月份(1月,2月)和天数(分别为3,4)

2 个答案:

答案 0 :(得分:1)

使用as.Datetable的方法:

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