R语言-时间函数

(1)获取当前日期有两个函数  
一个是Sys.Date()，另外一个是Sys.time(),获得向前向后的时间  
  
 t<-Sys.time()  
  
 t  
[1] "2015-09-22 18:53:56 CST"  
  
t是一种长整形的数据自1970-01-01年开始，用unclass()函数得到，时间单位是秒  
  
> unclass(t)  
[1] 1442919236  
  
  
获取一个小时前的日期  
  
as.POSIXlt(t-3600)  
  
[1] "2015-09-22 17:42:36 CST"  
  
获取一天前的日期  
as.POSIXlt(t-24*60*60)  
[1] "2015-09-21 18:42:36 CST"  
同理可以可以到前20天，前20天，前一年的数据，方法比较灵活  
  
将长整形的数据转换为日期型数据，这种方式感觉是借鉴java的，具体做法如下：  
 t<-Sys.time()  
as.POSIXct(unclass(t),origin=  
"1970-01-01") #要从1970-01-01年开始 [1] "2015-09-22 18:53:56  
CST"  
  
(2)自定义时间格式  
 t<-Sys.time()  
  
> t  
[1] "2015-09-22 19:19:54 CST"  
  
  
 format(t,format="%Y-%m-%d")  
  
[1] "2015-09-22"  
  
  
format(t,format="%B-%d-%Y")  
[1] "九月-22-2015"  
format(t,format="%a-%d-%Y")  
[1] "周二-22-2015"  
format(t,format="%A-%d-%Y")  
[1] "星期二-22-2015"  
format(t,format="%b-%d-%Y")  
[1] "九月-22-2015"  
诸如这种形式，%d代表0-31、%a代表周几，%A代表星期，%m代表月份0-12,%b代表月份，%B代表月份  
  
  
  
（3）计算时间差  
  
  
  
> today<-Sys.time() > today [1] "2015-09-22 19:27:03  
CST"  
  
  
> dob<-as.Date("2014-9-22")  
  
> difftime(today,dob,units = "days")  
  
Time difference of 365.4771 days  
  
  
difftime(today,dob,units  
= "weeks")  
  
Time difference of 52.21102 weeks  
  
  
  
units可以是“auto”, “secs”, “mins”, “hours”, “days”, “weeks”其中的一个  
  
  
  
  
  
(4)获得等差时间序列  
  
指定起始日期：  
start<-as.Date("2015-01-01")  
> end<-as.Date("2015-09-22") > seq(from=start,to=end,by=1)  
[1] "2015-01-01" "2015-01-02" "2015-01-03" "2015-01-04"  
"2015-01-05" "2015-01-06" [7] "2015-01-07"  
"2015-0。。。。。。  
  
  
指定长度：  
seq(from=start,by=1,length.out  
= 10) [1] "2015-01-01" "2015-01-02" "2015-01-03" "2015-01-04"  
"2015-01-05" "2015-01-06" [7] "2015-01-07" "2015-01-08"  
"2015-01-09" "2015-01-10"  
[plain] view plain copy
 now <- Sys.time()  
tseq <- seq(now, length.out = 100, by = "mins")  
  
也可以用as.Date():  
as.Date(0:10,origin="2015-09-10")  
[1]  
"2015-09-10" "2015-09-11" "2015-09-12" "2015-09-13" "2015-09-14"  
"2015-09-15" [7] "2015-09-16" "2015-09-17" "2015-09-18"  
"2015-09-19" "2015-09-20"