LubridateDomorewithdatesandtimesinR

Lubridate是一个R包&＃xff0c;可以更容易地处理日期和时间。
https://cran.r-project.org/web/packages/lubridate/vignettes/lubridate.html

lubridate可以解析日期&＃xff0c;按照y、m、d(在日期中出现的顺序进行提取&＃xff0c;简化标准化日期的过程。

library(lubridate)ymd("20110604")# 年月日mdy("06-04-2011")#月&＃xff0c;日&＃xff0c;年dmy("04/06/2011")#日&＃xff0c;月&＃xff0c;年


Lubridate的解析函数可以处理各种格式和分隔符&＃xff0c;这简化了解析过程。

如果日期包含时间信息&＃xff0c;在函数的名字后面加上h, m&＃xff0c;和/或s。
Ymd_hms是最常见的日期时间格式。
要读取带有特定时区的日期&＃xff0c;在tz参数中提供该时区的正式名称。

arrive <- ymd_hms("2011-06-04 12:00:00", tz &＃61; "Pacific/Auckland")#tz参数中提供该时区的名称&＃xff0c;用于读取带有特定时区的日期
arriveleave <- ymd_hms("2011-08-10 14:00:00", tz &＃61; "Pacific/Auckland")#设置太平洋地区的时间为2011-08-10 14:00:00 NZST
leave

从日期时间中提取信息&＃xff0c;函数为 second, minute, hour, day, wday, yday, week, month, year, tz。
还可以使用其中的每一个来设置(即更改)给定的信息。这将改变日期时间。
Wday和month有一个可选的label参数&＃xff0c;该参数将它们的数字输出替换为工作日或月份的名称。

second(arrive)#arrive中的秒数提取second(arrive) <- 25#设置到达时间的秒数&＃xff0c;这会对arrive进行修改
arrivesecond(arrive) <- 0wday(arrive)wday(arrive, label &＃61; TRUE)#可选的label参数&＃xff0c;该参数将它们的数字输出替换为工作日或月份的名称。


关于日期和时区有两件非常有用的事情。
首先&＃xff0c;在不同的时区显示相同的时刻。
第二&＃xff0c;通过将现有的时钟时间与新时区相结合来创建一个新的时刻。
这些是通过with_tz和force_tz完成的。

# 举例说明&＃xff0c;如果是从太平洋的时间变成美国芝加哥的时间是多少
meeting <- ymd_hms("2011-07-01 09:00:00", tz &＃61; "Pacific/Auckland")
with_tz(meeting, "America/Chicago")#如果是从美国芝加哥的时间变成太平洋的时间是多少
mistake <- force_tz(meeting, "America/Chicago")
with_tz(mistake, "Pacific/Auckland")

可以将时间区间保存为lubridate的interval类对象中

#求解arrive和leave时间的区间
auckland <- interval(arrive, leave)
aucklandauckland <- arrive %--% leave
auckland

jsm <- interval(ymd(20110720, tz &＃61; "Pacific/Auckland"), ymd(20110831, tz &＃61; "Pacific/Auckland"))
jsm


int_overlaps(jsm, auckland)#两个时间区间是否重叠


setdiff(auckland, jsm)#时间不重叠的部分


intervals的其他功能int_start, int_end, int_flip, int_shift, int_aligns, union, intersect, setdiff, %within%.

Intervals是特定的时间跨度&＃xff0c;有两个具体时间的时间跨度。
lubridate也提供了两个一般的时间跨度类:duration和Periods。
“d”&＃xff1a;表示持续时间&＃xff0c;用于开头
“e”&＃xff1a;表示确切时间。

minutes(2) ## period
#> [1] "2M 0S"
dminutes(2) ## duration&＃xff0c;“d”&＃xff1a;表示持续时间&＃xff0c;用于开头
#> [1] "120s (~2 minutes)"


Duration类提供数学上精确的结果。Duration的一年总是等于365天。
为了给出直观的结果&＃xff0c;Duration与时间轴的波动方式相同。这使得它们对时钟时间建模很有用。
例如&＃xff0c;在闰年的时候&＃xff0c;duration是会给出真实时间&＃xff0c;但是period可能会返回你想要的结果&＃xff0c;直接变成下一年的日期

leap_year(2011) ## regular yearymd(20110101) &＃43; dyears(1)ymd(20110101) &＃43; years(1)leap_year(2012) ## leap year闰年ymd(20120101) &＃43; dyears(1)
#>给出真实的时间
ymd(20120101) &＃43; years(1)
#给出你想要的结果


meetings <- meeting &＃43; weeks(0:5)#加上固定的时间&＃xff0c;重复计算
meetings
meetings %within% jsm#是否在jsm的时间段内


auckland / ddays(1)#计算时间长度&＃xff0c;几天
#> [1] 67.08333
auckland / ddays(2)#计算时间长度&＃xff0c;以两天为单位
#> [1] 33.54167
auckland / dminutes(1)#计算时间长度&＃xff0c;几分钟
#> [1] 96600


auckland %/% months(1)
#时间间隔与一个月相除&＃xff0c;即表示时间间隔中有几个月
auckland %% months(1)
#时间间隔与一个月相除后的余数是多少


#将上面的计算结果进行标准化的输出
as.period(auckland %% months(1))
#> [1] "6d 2H 0M 0S"
as.period(auckland)
#> [1] "2m 6d 2H 0M 0S"


时间计算中可能会出现一些冲突或者错误
举例&＃xff1a;
January 31st &＃43; one month
结果可能为February 31st 根本不存在。March 4th ( January 31的后31天), or February 28th (如果是闰年的话)
这种就会出现多个结果&＃xff0c;为了统一&＃xff0c;提供以下解决方法。
如果想要结果为February 31st &＃xff08;根本不存在的时间&＃xff09;如果时间不存在&＃xff0c;就返回na。以下是新版本version 1.3.0。
如果想要的结果是March 4th ( January 31的后31天), or February 28th (如果是闰年的话)&＃xff0c;就使用特定的操作方式l %m&＃43;%

jan31 <- ymd("2013-01-31")
jan31 &＃43; months(0:11)floor_date(jan31, "month") &＃43; months(0:11) &＃43; days(31)jan31 %m&＃43;% months(0:11)

lubridate中的代码是向量化的&＃xff0c;可以在交互和函数中使用

last_day <- function(date) {ceiling_date(date, "month") - days(1)
}
#用于实现计算这个月的最后天x<-ymd("20110604")
last_day(x)