格式化日期/时间

在数据分析中，常常会遇到日期和时间类型数据。与日期相关的最简单的函数可能是：
Sys.Date( )返回当前日期；Sys.time( )返回当前时间。

当本书被渲染出来的时候，打印出来的日期如下：
Sys.Date()
## [1] "2017-02-09"
时间是：
Sys.time()
## [1] "2017-02-09 20:39:32 CST"
输出结果中日期和时间看起来像字符向量，实际上并不是：
current_date <- Sys.Date()
as.numeric(current_date)
## [1] 17206
current_time <- Sys.time()
as.numeric(current_time)
## [1] 1486643972
本质上讲，这些数值都与一个初始值关联，并且用一种特殊的方法来进行日期/时间的
计算。对于日期，其数值表示自 1970-01-01 之后经过的天数。对于时间，其数值表示自
1970-01-01 00:00.00 UTC 以后经过的秒数。