前言

本文使用第三方lubridate库，用于处理R的日期时间对象。在使用此库以前，需要对R自带的日期时间类型有所了解：R语言中，分别设计了两个日期时间类型：POSIXlt，对应字符串形式表达的日期时间；POSIXct，对应数字形式表达的日期时间。此外，还有一个专门针对日期的类型Date。

  • Date: 日期类型，年月日时分秒
  • POSIXct：以有符号整数形式存储，表示从1970-01-01到该时间点经过的秒数
  • POSIXlt：以字符串形式存储，包含年月日等，如”05/27/84” 对应格式 “%m/%d/%y”，”May 27 1984” 对应格式 “%B %d %Y”

lubridate基于POSIXct构建。

格式转换

字符串转日期时间

# 任意常见格式的日期时间字符串都能自动识别
arrive <- ymd_hms("2011-06-04 12:00:00", tz = "Pacific/Auckland")

# 年月日
ymd("20110604")

时间戳转日期时间

as.POSIXct(1307145600, origin="1970-01-01", tz="Pacific/Auckland")

日期时间转字符串

as.character(arrive, format="%Y-%m-%d %H:%M:%S")

日期时间转时间戳

as.numeric(arrive)

日期时间属性

second(arrive)
wday(arrive)
wday(arrive, label=TRUE)

日期时间算术

# 时间段
minutes(2) ## period
dminutes(2) ## duration


# 加减运算
ymd(20120101) + dyears(1) ## 二者输出有区别
ymd(20120101) + years(1)

meetings <- meeting + weeks(0:5)
auckland / ddays(2)

# 日期时间区间，前闭后开
auckland <- interval(arrive, leave) 
auckland

jsm <- interval(ymd(20110720, tz = "Pacific/Auckland"), ymd(20110831, tz = "Pacific/Auckland"))
jsm

int_overlaps(jsm, auckland)
setdiff(auckland, jsm)

时区

# 时间戳不变，北京8点变为伦敦0点，同一时刻
meeting <- ymd_hms("2011-07-01 09:00:00", tz = "Pacific/Auckland")
with_tz(meeting, "America/Chicago") 

# 时间戳改变，显示值不变，北京8点变为伦敦8点
mistake <- force_tz(meeting, "America/Chicago")
with_tz(mistake, "Pacific/Auckland")