Wie Sie feststellen, wenn das Datum ein Wochenende oder nicht (nicht mit lubridate)

Ich habe einen Vektor von Datums-Objekte (yyyy-mm-dd) und ich will bestimmen, ob jeder von Ihnen am Wochenende oder nicht. Gibt es eine Funktion, die bestimmen können, das auf Anhieb?

Kann ich verwenden wday() im lubridate Paket und bestimmen Sie dann, ob der Rückgabewert ist 01 oder 07aber alles andere einfacher?

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

InformationsquelleAutor der Frage DonDyck | 2014-10-18

  1. 10

    Legte ich @AnandaMahto Vorschlag hier eher als ein Kommentar:

    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"

    InformationsquelleAutor der Antwort

  2. 18

    Können Sie die Basis-R-Funktion 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"

    Soweit lubridate geht, wday() hat eine label argument. Bei TRUEdie (verkürzten) Tag-Namen werden zurückgegeben anstelle von zahlen. Verwenden Sie die abbr argument zu ändern, um vollständige Namen.

    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

    InformationsquelleAutor der Antwort Rich Scriven

  3. 8

    Ein anderer Ansatz könnte die Verwendung format und %u gibt, die eine Zahl für den Tag der Woche, beginnend mit "1" für "Montag".

    Mit, dass, die Sie tun können:

    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"

    InformationsquelleAutor der Antwort A5C1D2H2I1M1N2O1R2T1

  4. 4

    Den wday in beiden lubridate und data.table (ja, data.table hat so ziemlich alles, aber der Küchenspüle 🙂 beide machen eine variation:

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

    So könnte man, in der Theorie, nur:

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

    und dann testen Sie für das Wochenende andere Antwort(en) zu tun.

    InformationsquelleAutor der Antwort hrbrmstr

  5. 0

    Könnten Sie isWeekend aus Paket timeDate. Schwer zu tun einfacher :). wday angeben, welche Tage als Werktage. Standardmäßig werden von Montag bis Freitag.

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

    Aus der Dokumentation :

    ## 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)]

    Funktioniert es auch mit isWeekday.

    InformationsquelleAutor der Antwort Florent

Schreibe einen Kommentar