R语言中时间格式使用总结

原文地址：http://blog.sina.com.cn/s/blog_7d8326290102w0rl.html

对于时间格式方面处理，每种语言多有自己的特定的函数或者类来处理，SAS里面依赖于put、input 、putn()、intnx、intck、today()等函数来处理，python里面主要依赖于time和datetime两个包，java里面SimpleDateFormat、Date、Calendar、System等类处理;mysql中的较于简单，下面说说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:56CST"

(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:03CST"

> 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"

也可以用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"

要创建自己的时间格式，最好配合paste和 as.character()来处理