Làm thế nào để xác định xem ngày có phải là ngày cuối tuần hay không (không sử dụng lubridate)

Question

Tôi có một véc tơ của các đối tượng ngày (yyyy-mm-dd) và tôi muốn xác định xem có ngày nào cuối tuần không. Có chức năng nào có thể xác định điều này ngay lập tức không?

tôi có thể sử dụng wday() trong lubridate gói và sau đó xác định nếu giá trị trả về là 01 hoặc 07, nhưng bất cứ điều gì khác đơn giản hơn?

x <- seq(Sys.Date()-10, Sys.Date(), by = 1) 
x[lubridate::wday(x) %in% c(1, 7)] 

Answer 1

tôi đặt @ đề nghị AnandaMahto ở đây chứ không phải là một lời nhận xét:

library(chron) 
x <- seq(Sys.Date()-10, Sys.Date(), by = 1) 
x[is.weekend(x)] 

## [1] "2014-10-11" "2014-10-12" "2014-10-18" 

Answer 2

Bạn có thể sử dụng hàm R cơ sở weekdays().

x <- seq(Sys.Date() - 10, Sys.Date(), by = 1) 
weekdays(x, abbr = TRUE) 
# [1] "Wed" "Thu" "Fri" "Sat" "Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat" 
x[grepl("S(at|un)", weekdays(x))] 
# [1] "2014-10-11" "2014-10-12" "2014-10-18" 

As far as lubridate đi, wday() có một cuộc tranh luận label. Khi được đặt thành TRUE, tên ngày (viết tắt) được trả về thay vì số. Sử dụng đối số abbr để thay đổi thành tên đầy đủ.

library(lubridate) 
wday(x, label = TRUE) 
# [1] Wed Thurs Fri Sat Sun Mon Tues Wed Thurs Fri Sat 
# Levels: Sun < Mon < Tues < Wed < Thurs < Fri < Sat 

Answer 3

cách tiếp cận khác có thể được sử dụng format và %u, mang đến cho một số cho ngày trong tuần, bắt đầu với "1 "đại diện" Thứ Hai ".

Với điều đó, bạn có thể làm:

x <- seq(as.Date("2014-10-18")-10, Sys.Date(), by = 1) 
format(x, "%u") %in% c(6, 7) 
# [1] FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE TRUE 
x[format(x, "%u") %in% c(6, 7)] 
# [1] "2014-10-11" "2014-10-12" "2014-10-18" 

Answer 4

Các wday trong cả lubridate và data.table (vâng, data.table có khá nhiều tất cả mọi thứ nhưng bồn rửa nhà bếp :-) cả làm một sự thay đổi trên:

as.POSIXlt(x, tz = tz(x))$wday + 1 # lubridate 
as.POSIXlt(x)$wday + 1L   # data.table 

Vì vậy, bạn có thể, theo lý thuyết, chỉ cần làm:

as.POSIXlt("2014-10-18")$wday + 1 
## [1] 7 

và sau đó kiểm tra cho những ngày cuối tuần như câu trả lời khác (s) làm.

Answer 5

Bạn có thể sử dụng isWeekend từ package timeDate. Khó làm đơn giản hơn :). wday chỉ định ngày nào sẽ được xem là ngày trong tuần. Theo mặc định từ thứ Hai đến thứ Sáu.

> today <- isWeekend(Sys.Date(), wday = 1:5) 
if (as.logical(today)){ 
    print("YES") 
} else print("NO") 

Từ các tài liệu:

## Dates in April, currentYear: 
    currentYear = getRmetricsOptions("currentYear") 
    tS = timeSequence(
     from = paste(currentYear, "-03-01", sep = ""), 
     to = paste(currentYear, "-04-30", sep = "")) 
    tS 

## Subset of Weekends: 
    isWeekend(tS) 
    tS[isWeekend(tS)] 

Nó cũng làm việc với isWeekday.