提取日期中的各个组成部分信息
>d <- Sys.time()
> p<-as.POSIXlt(d)
> p

[1] "2016-08-11 18:14:53 CST"
> class(p)
[1] "POSIXlt" "POSIXt"
> print(mode(p))
[1] "list"
> print(p$year+1900)   # p$year 自1900年以来的年份
[1] 2016
> print(p$mon)         
[1] 7
> print(p$mon+1)   # p$mon  表示0-11月
[1] 8
> print(p$mday)       # p$mday 该月的第几天
[1] 11
> print(p$yday+1)    # p$yday 该年的第几天，0-365天，元旦当天是第0天
[1] 224
> print(p$wday)         # p$wday 对应周几，0-6，周日为0，其他时间和我们日常习惯一致
[1] 4