1027 chapter 12 lubridate 日期和时间

简介

library(lubridate) library(tidyverse) library(nycflights13)

创建日期或者时间

查看现在时间

 now()
[1] "2018-10-27 18:43:28 CST"

-了解下时间,PDT(Pacific Daylight Time)太平洋夏季时间,太平洋时间的标准时间从协调世界时减去8小时(UTC 8)。

  • 而CST是美国、澳大利亚、古巴或中国的[标准时间]
    1、美国中部时间:Central Standard Time ([USA] UT-6:00;
    2、澳大利亚中部时间:Central Standard Time (Australia) UT+9:30;
    3、中国[标准时间]: China Standard Time UT+8:00;
    4、古巴[标准时间]:Cuba Standard Time UT-4:00。
  • UTC: 协调世界时,是以[原子时秒长为基础,在时刻上尽量接近于的一种时间计量系统。

创建日期或时间的三个方法

字符串创建

ymd(),mdy(),dmy(),ymd_hms(),mdy_hm(),数值带不带引号都可以
ymd(20181027) [1] "2018-10-27"

通过日期时间的各个成分的创建

日期各个成分分布在表格的多个列中。可使用make_date(), make_datetime()

通过现有的日期时间对象创建

as_datetime() 偏移量单位是秒和 as_date() 使用偏移量表示日期时间

p165练习题

  1. 无效日期会变成NA
ymd(c("2010-10-10","bananas"))
[1] "2010-10-10" NA          
Warning message:
 1 failed to parse.
?today

tzone   
a character vector specifying which time zone you would like to find the current date of. tzone defaults to the system time zone set on your computer.

主要是定义时区的,默认是电脑所设置时区。

mdy("January 1,2010")
[1] "2010-01-01"
ymd("2015-Mar-07")
[1] "2015-03-07"
dmy(06-Jun-2017)
Error in lapply(list(...), .num_to_date) : object 'Jun' not found
dmy("06-Jun-2017")
[1] "2017-06-06"
mdy(c("August 19 (2015)","July 1(2015)"))
[1] "2015-08-19" "2015-07-01"
mdy("12/30/14")
[1] "2014-12-30"

日期时间成分

获取成分

year(), month(),day(),mday()[一个月中的第几天,以下类推],yday(),wday(),hour(),minute(),second()
label = TRUE来返回月份名称和星期数 的缩写,abbr = FALSE,f返回全称

datetime <- ymd_hms("2018-10-27 19:19:40")
> month(datetime,label = TRUE)
[1] 十月
12 Levels: 一月 < 二月 < ... < 十二月
> wday(datetime, label = TRUE, abbr = FALSE)
[1] 星期六
7 Levels: 星期日 < ... < 星期六 # 我的电脑返回的是中文,不像书中的英语,是因为系统语言么?

舍入

floor_date(), round_date(),ceiling_date()

设置成分
①原地修改

datetime <- ymd_hms("2018-10-27 19:19:40")
 year(datetime) <- 2020
 datetime
[1] "2020-10-27 19:19:40 UTC"

② update()

update(datetime,year = 2020, month =  2, day = 2, hour = 2)
[1] "2020-02-02 02:19:40 UTC"

p170练习题

 flights_dt %>%
  mutate(time = hour(dep_time) * 100 + minute(dep_time),
         mon = as.factor(month
                         (dep_time))) %>%
  ggplot(aes(x = time, group = mon, colour = mon)) +
  geom_freqpoly(binwidth = 100)
Error in mutate_impl(.data, dots) : 
  Evaluation error: 'origin' must be supplied

2,

flights_dt %>%
  mutate(dep_time_ = sched_dep_time + dep_delay * 60) %>%
  filter(dep_time_ != dep_time) %>%
  select(dep_time_, dep_time, sched_dep_time, dep_delay)

因为有的午夜航班推迟后就是第二天了

flights_dt %>%
  mutate(flight_duration = as.numeric(arr_time - dep_time),
         air_time_mins = air_time,
         diff = flight_duration - air_time_mins) %>%
  select(origin, dest, flight_duration, air_time_mins, diff)

剩下的就不搬运答案了。。

时间间隔

时期,阶段,区间

时期

以秒为单位,as.duration(), dseconds()等
2*ddays(2)

阶段

seconds(),days(),years()

seconds(15)
[1] "15S"

阶段可以加减乘,也可以和日期相加

ymd(20181027) + dyears(1)
[1] "2019-10-27"

区间

next_year <- today()+years(1)
 (today()%--%next_year)/ddays(1)
[1] 365

p174

1, 没有dmonths的原因是 每个月的长度不一样
2.答案: overnight 和TRUE 或FALSE相等,如果过夜,为1天,没过夜,为0

  1. mday(1)想表达2015年的1月到12月,找不到好的表达式。。
ym(201501:201512)
Error in ym(201501:201512) : could not find function "ym"

答案:

ymd("2015-01-01") + months(0:11)
floor_date(today(), unit = "year") + months(0:11)
age <- function(bday) {
  (bday %--% today()) %/% years(1)
}
age(ymd("1990-10-12"))

5.要加个括号

(today() %--% (today() + years(1))) %/% months(1)
[1] 12

时区

国际标准IANA时区,<大陆>/<城市> like“America/New_York”

Sys.timezone() 
[1] "Asia/Taipei"

OlsonNames() 查找完整的时区名称列表
一般lubridate总是使用UTC时间

  • 修改时区的两种方法
  • ①修改其显示方式
    with_tz()
    -②修改内部时间
    force_tz()

推荐阅读更多精彩内容

  • 概念解释 时区(Timezone) 为什么会将地球分为不同时区呢?因为地球总是自西向东自转,东边总比西边先看到太阳...
    黑炭妈阅读 2,078评论 0 4
  • pdf下载地址:Java面试宝典 第一章内容介绍 20 第二章JavaSE基础 21 一、Java面向对象 21 ...
    王震阳阅读 89,238评论 26 538
  • 本文尝试翻译了Garrett Grolemund(《R语言入门与实践》作者)和Hadley Wickham两位大神...
    奔跑的蜈蚣阅读 3,644评论 0 6
  • SwiftDate概况 从Swift发布起,我们就没有放弃使用Swift。 当然,我们希望在项目能够轻松自如地管理...
    Mee_Leo阅读 4,434评论 1 11
  • 20170924:第一次尝试渐变色彩铅,这或许是被撬过的锁 9.24打卡2:千纸鹤 20170926打卡 2017...
    简二不书阅读 27评论 0 0