R Language
lubridate

Syntaxis

• ymd_hms (..., quiet = FALSE, tz = "UTC", locale = Sys.getlocale ("LC_TIME"))
• nu (tzone = "")
• interval (start, einde, tzone = attr (start, "tzone"))
• duur (aantal = NULL, eenheden = "seconden", ...)
• periode (aantal = NULL, eenheden = "seconde", ...)

Opmerkingen

install.packages("lubridate")

library(devtools)
# dev mode allows testing of development packages in a sandbox, without interfering
# with the other packages you have installed.
dev_mode(on=T)
install_github("hadley/lubridate")
dev_mode(on=F)

vignette("lubridate")

help(foo)     # help about function foo
?foo          # same thing

# Example
# help("is.period")
# ?is.period

example("foo")

# Example
# example("interval")

Datums en datatijden van strings parseren met lubridate

Het lubridate pakket biedt handige functies om datum- en datetime-objecten op te maken uit tekenreeksen. De functies zijn permutaties van

bijv. ymd() voor het ontleden van een datum met het jaar gevolgd door de maand gevolgd door de dag, bijv. "2016-07-22" , of ymd_hms() voor het ontleden van een datetime in het ymd_hms() , maand, dag, uren, minuten, seconden, bijv. "2016-07-22 13:04:47" .

De functies kunnen de meeste scheidingstekens (zoals / , - en witruimte) herkennen zonder aanvullende argumenten. Ze werken ook met inconsistente scheidingstekens.

data

De datumfuncties retourneren een object van de klasse Date .

library(lubridate) 

mdy(c(' 07/02/2016 ', '7 / 03 / 2016', ' 7 / 4 / 16 '))
## [1] "2016-07-02" "2016-07-03" "2016-07-04"

ymd(c("20160724","2016/07/23","2016-07-25"))    # inconsistent separators
## [1] "2016-07-24" "2016-07-23" "2016-07-25"

tijd-tags

Hulpprogramma's

Datetijden kunnen worden ontleed met behulp van ymd_hms varianten, waaronder ymd_hm en ymd_h . Alle datetime-functies kunnen een tz tijdzone-argument accepteren, vergelijkbaar met dat van as.POSIXct of strptime , maar standaard ingesteld op "UTC" plaats van de lokale tijdzone.

De datetime-functies retourneren een object van klasse POSIXct .

x <- c("20160724 130102","2016/07/23 14:02:01","2016-07-25 15:03:00")
ymd_hms(x, tz="EST")
## [1] "2016-07-24 13:01:02 EST" "2016-07-23 14:02:01 EST"
## [3] "2016-07-25 15:03:00 EST"

ymd_hms(x)
## [1] "2016-07-24 13:01:02 UTC" "2016-07-23 14:02:01 UTC"
## [3] "2016-07-25 15:03:00 UTC"

Parser-functies

lubridate bevat ook drie functies voor het parseren van datetijden met een opmaakstring zoals as.POSIXct of strptime :

x <- c('2016-07-22 13:04:47', '07/22/2016 1:04:47 pm')

parse_date_time(x, orders = c('mdy Imsp', 'ymd hms'))
## [1] "2016-07-22 13:04:47 UTC" "2016-07-22 13:04:47 UTC"

x <- c('2016-07-22 13:04:47', '2016-07-22 14:47:58')

parse_date_time2(x, orders = 'Ymd HMS')
## [1] "2016-07-22 13:04:47 UTC" "2016-07-22 14:47:58 UTC"

fast_strptime(x, format = '%Y-%m-%d %H:%M:%S')
## [1] "2016-07-22 13:04:47 UTC" "2016-07-22 14:47:58 UTC"

parse_date_time2 en fast_strptime gebruiken een snelle C-parser voor efficiëntie.

Zie ?parse_date_time voor het opmaken van tokens.

Datum en tijd parseren in lubridate

Lubridate biedt ymd() reeks functies voor het parseren van tekenreeksen in datums. De letters y, m en d komen overeen met de jaar-, maand- en dagelementen van een datum-tijd.

mdy("07-21-2016")                 # Returns Date

## [1] "2016-07-21"

mdy("07-21-2016", tz = "UTC")     # Returns a vector of class POSIXt

## "2016-07-21 UTC"

dmy("21-07-2016")                 # Returns Date

## [1] "2016-07-21"

dmy(c("21.07.2016", "22.07.2016")) # Returns vector of class Date

## [1] "2016-07-21" "2016-07-22"

Datum en tijd manipuleren in lubridate

date <- now()
date
## "2016-07-22 03:42:35 IST"

year(date)
## 2016

minute(date)
## 42

wday(date, label = T, abbr = T)
# [1] Fri
# Levels: Sun < Mon < Tues < Wed < Thurs < Fri < Sat

day(date) <- 31
## "2016-07-31 03:42:35 IST"

# If an element is set to a larger value than it supports, the difference
#  will roll over into the next higher element
day(date) <- 32
## "2016-08-01 03:42:35 IST"

Instants

Een moment is een specifiek moment in de tijd. Elk datum-tijdobject dat verwijst naar een tijdstip wordt herkend als een moment. Gebruik is.instant om te testen of een object een instant is.

library(lubridate)

today_start <- dmy_hms("22.07.2016 12:00:00", tz = "IST") # default tz="UTC"
today_start
## [1] "2016-07-22 12:00:00 IST"
is.instant(today_start)
## [1] TRUE

now_dt <- ymd_hms(now(), tz="IST")
now_dt
## [1] "2016-07-22 13:53:09 IST"
is.instant(now_dt)
## [1] TRUE

is.instant("helloworld")
## [1] FALSE
is.instant(60)
## [1] FALSE

Intervallen, duur en periodes

Intervallen zijn de eenvoudigste manier om tijdsperioden in lubridate op te nemen. Een interval is een tijdsperiode die zich tussen twee specifieke momenten voordoet.

# create interval by substracting two instants
today_start <- ymd_hms("2016-07-22 12-00-00", tz="IST")
today_start
## [1] "2016-07-22 12:00:00 IST"
today_end <- ymd_hms("2016-07-22 23-59-59", tz="IST")
today_end
## [1] "2016-07-22 23:59:59 IST"
span <- today_end - today_start
span
## Time difference of 11.99972 hours
as.interval(span, today_start)
## [1] 2016-07-22 12:00:00 IST--2016-07-22 23:59:59 IST

# create interval using interval() function
span <- interval(today_start, today_end)
[1] 2016-07-22 12:00:00 IST--2016-07-22 23:59:59 IST

De duur meet de exacte hoeveelheid tijd die tussen twee ogenblikken plaatsvindt.

duration(60, "seconds")
## [1] "60s"

duration(2, "minutes")
## [1] "120s (~2 minutes)"

Opmerking: eenheden groter dan weken worden niet gebruikt vanwege hun variabiliteit.

Duur kan worden gecreëerd met behulp van dseconds , dminutes en andere dminutes .
Voer ?quick_durations voor de volledige lijst.

dseconds(60)
## [1] "60s"

dhours(2)
## [1] "7200s (~2 hours)"

dyears(1)
## [1] "31536000s (~365 days)"

Duur kan worden afgetrokken en worden toegevoegd aan instants om nieuwe instants te krijgen.

today_start + dhours(5)
## [1] "2016-07-22 17:00:00 IST"

today_start + dhours(5) + dminutes(30) + dseconds(15)
## [1] "2016-07-22 17:30:15 IST"

Duur kan worden gecreëerd op basis van intervallen.

as.duration(span)
[1] "43199s (~12 hours)"

Perioden meten de verandering in kloktijd die optreedt tussen twee ogenblikken.

Perioden kunnen worden gemaakt met behulp period zo goed functioneren andere helper functies, zoals seconds , hours , enz. Om een volledige lijst van de periode helper functies, Run krijgen ?quick_periods .

period(1, "hour")
## [1] "1H 0M 0S"

hours(1)
## [1] "1H 0M 0S"

period(6, "months")
## [1] "6m 0d 0H 0M 0S"

months(6)
## [1] "6m 0d 0H 0M 0S"

years(1)
## [1] "1y 0m 0d 0H 0M 0S"

is.period functie kan worden gebruikt om te controleren of een object een punt is.

is.period(years(1))
## [1] TRUE

is.period(dyears(1))    
## [1] FALSE

Datums afronden

now_dt <- ymd_hms(now(), tz="IST")
now_dt
## [1] "2016-07-22 13:53:09 IST"

round_date() neemt een object datum-tijd en rondt dit af naar de dichtstbijzijnde gehele waarde van de opgegeven tijdseenheid.

round_date(now_dt, "minute")
## [1] "2016-07-22 13:53:00 IST"

round_date(now_dt, "hour")
## [1] "2016-07-22 14:00:00 IST"

round_date(now_dt, "year")
## [1] "2017-01-01 IST"

floor_date() neemt een object datum-tijd en rondt dit naar beneden af naar de dichtstbijzijnde gehele waarde van de opgegeven tijdseenheid.

floor_date(now_dt, "minute")
## [1] "2016-07-22 13:53:00 IST"

floor_date(now_dt, "hour")
## [1] "2016-07-22 13:00:00 IST"

floor_date(now_dt, "year")
## [1] "2016-01-01 IST"

ceiling_date() neemt een object datum-tijd en rondt dit naar boven af op de dichtstbijzijnde gehele waarde van de opgegeven tijdseenheid.

ceiling_date(now_dt, "minute")
## [1] "2016-07-22 13:54:00 IST"

ceiling_date(now_dt, "hour")
## [1] "2016-07-22 14:00:00 IST"

ceiling_date(now_dt, "year")
## [1] "2017-01-01 IST"

Verschil tussen periode en duur

In tegenstelling tot duur kunnen periodes worden gebruikt om kloktijden nauwkeurig te modelleren zonder te weten wanneer gebeurtenissen zoals schrikkelseconden, schrikkeldagen en zomertijdveranderingen optreden.

start_2012 <- ymd_hms("2012-01-01 12:00:00")
## [1] "2012-01-01 12:00:00 UTC"

# period() considers leap year calculations.
start_2012 + period(1, "years")
## [1] "2013-01-01 12:00:00 UTC"

# Here duration() doesn't consider leap year calculations. 
start_2012 + duration(1)
## [1] "2012-12-31 12:00:00 UTC"

Tijdzones

with_tz retourneert een datum-tijd zoals deze in een andere tijdzone zou verschijnen.

nyc_time <- now("America/New_York")
nyc_time
## [1] "2016-07-22 05:49:08 EDT"

# corresponding Europe/Moscow time
with_tz(nyc_time, tzone = "Europe/Moscow")
## [1] "2016-07-22 12:49:08 MSK"

force_tz retourneert a de datum-tijd die dezelfde kloktijd heeft als x in de nieuwe tijdzone.

nyc_time <- now("America/New_York")
nyc_time
## [1] "2016-07-22 05:49:08 EDT"

force_tz(nyc_time, tzone = "Europe/Moscow") # only timezone changes
## [1] "2016-07-22 05:49:08 MSK"