基础 R 选项。首先创建一个所有天的列表,然后match
用weekdays
6 减去它(我们想要星期六),得到我们需要在原始date
列中添加的天数。
all_days <- c("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")
#As @nicola mentioned this is locale dependent
#If your locale is not English you need weekdays in your current locale
#which you can manually write as shown above or do any one of the following
#all_days <- weekdays(seq(as.Date("2019-01-14"),by="day",length.out=7))
#OR
#all_days <- format(seq(as.Date("2019-01-14"),by="day",length.out=7), "%A")
df$EOW <- df$date + 6 - match(weekdays(df$date), all_days)
df
# date week EOW
#1 2014-08-20 34 2014-08-23
#2 2014-08-25 34 2014-08-30
#3 2014-10-08 41 2014-10-11
或者lubridate
有一个函数ceiling_date
,当与它一起使用时unit = "week"
会返回下一个“星期天”,所以我们从中减去 1 天得到“星期六”。
library(lubridate)
df$EOW <- ceiling_date(df$date, unit = "week") - 1