Question

我可以得到今天的日期：

Sys.Date( )

但是我怎么得到上周五的约会？我试过了：

library(xts)
date1 <- Sys.Date( ) 
to.weekly(date1 )

但这会产生错误。

感谢您的帮助

Answer 1

我认为这应该有效：

library(lubridate)

Sys.Date() - wday(Sys.Date() + 1)

Answer 2

试试这个：

library(zoo)
lastfri(Sys.Date())

其中lastfri与此动物园插图中的一行函数nextfri相同，zoo quickref vignette，但ceiling替换为floor。请注意，lastfri是矢量化的，即它可以采用输入日期的向量并生成输出日期的向量。例如，

library(zoo)
Sys.Date()
## 2015-03-10
lastfri(Sys.Date() + 0:6)
## [1] "2015-03-06" "2015-03-06" "2015-03-06" "2015-03-13" "2015-03-13"
## [6] "2015-03-13" "2015-03-13"

因此，上周五是3月6日，我们将一直持续到3月6日，直到前一天到达下周五，此时最后一个星期五是3月13日。

旁白：下周五是13日星期五。

Answer 3

这是一个查找一周中任何一天的最后日期的函数：

getlastdate <- function(day) {
library(lubridate)
dates <- seq((Sys.Date()-7), (Sys.Date()-1), by="days")
dates[wday(dates, label=T)==day]
}

getlastdate("Mon")  

# "2015-03-09"

以缩写格式输入星期几：即

Sun   Mon Tues  Wed   Thurs Fri   Sat

Answer 4

上周五是4天前，因此：

Sys.Date()-4

> Sys.Date()-4
[1] "2015-03-06"

对于一周中的任何一天，使用base：

Sys.Date()-(as.POSIXlt(Sys.Date())$wday+2)

R：获得上周五的约会

4 个答案: