R语言日期的表示和运算（详细总结）
1、取出当前日期
Sys.Date()
[1] "2014-10-29"
date() #注意：这种方法返回的是字符串类型
[1] "Wed Oct 29 20:36:07 2014"
2、在R中日期实际是double类型，是从1970年1月1日以来的天数
typeof(Sys.Date())
[1] "double"
3、转换为日期
用as.Date()可以将一个字符串转换为日期值，默认格式是yyyy-mm-dd。
as.Date("2007-02-01") #得到"2007-02-01"，显示为字符串，但实际是用double存储的
as.double(as.Date("1970-01-01")) #结果为0，是从1970年1月1日以来的天数。
可以把定制的日期字符串转换为日期型
as.Date("2007年2月1日", "%Y年%m月%d日")
[1] "2007-02-01"
格式
意义
%Y
年份，以四位数字表示，2007
%m
月份，以数字形式表示，从01到12
%d
月份中当的天数，从01到31
%b
月份，缩写，Feb
%B
月份，完整的月份名，指英文，February
%y
年份，以二位数字表示，07
4、把日期值输出为字符串
today <- Sys.Date()
format(today, "%Y年%m月%d日")
[1] "2014年10月29日"
5、计算日期差
由于日期内部是用double存储的天数，所以是可以相减的。
today <- Sys.Date()
gtd <- as.Date("2011-07-01")
today - gtd
Time difference of 1216 days
用difftime()函数可以计算相关的秒数、分钟数、小时数、天数、周数
difftime(today, gtd, units="weeks") #还可以是“secs”, “mins”, “hours”, “days”
Time difference of 173.7143 weeks
#日期型数据
在R中自带的日期形式为：as.Date();以数值形式存储；
对于规则的格式，则不需要用format指定格式；如果输入的格式不规则，可以通过format指定的格式读入；
标准格式：
年-月-日或者年/月/日；如果不是以上二种格式，则会提供错误；
as.Date('23-2013-1')
错误于charTo按照Date(x) : 字符串的格式不够标准明确
> as.Date('23-2013-1',format='%d-%Y-%m')
[1] "2013-01-23"
格式
意义
%d
月份中当的天数
%m
月份，以数字形式表示
%b
月份，缩写
%B
月份，完整的月份名，指英文
%y
年份，以二位数字表示
%Y
年份，以四位数字表示
today
#其它日期相关函数
weekdays（）取日期对象所处的周几；
months（）取日期对象的月份；
quarters（）取日期对象的季度；
#POSIX类
The POSIXct class stores date/time values as the number of seconds since January 1, 1970, while the POSIXlt class stores them as a list with elements for second, minute, hour, day, month, and year, among others.
POSIXct 是以1970年1月1号开始的以秒进行存储，如果是负数，则是1970年以前；正数则是1970年以后。
POSIXlt 是以列表的形式存储：年、月、日、时、分、秒；
mydate = as.POSIXlt(’2005-4-19 7:01:00’)
names(mydate)
默认情况下，日期之前是以/或者-进行分隔，而时间则以：进行分隔；
输入的标准格式为：日期 时间（日期与时间中间有空隔隔开）
时间的标准格式为：时:分 或者 时:分:秒；
如果输入的格式不是标准格式，则同样需要使用strptime函数，利用format来进行指定；
#生成案例数据
Dates <- c("2009-09-28","2010-01-15")
Times <- c( "23:12:55", "10:34:02")
charvec <- timeDate(paste(Dates, Times))
timeDate(charvec)
#取系统的时间
Sys.timeDate（）
#一个月的第一天
timeFirstDayInMonth()
#一个月的最后一天
timeLastDayInMonth（）
#一周当中第几天
dayOfWeek()
#一年当中的第几天
dayOfYear()
Sys.Date( ) returns today's date.
date() returns the current date and time.
# print today's date
today <-Sys.Date()
format(today, format="%B %d %Y")
"June 20 2007"
# convert date info in format 'mm/dd/yyyy'
strDates <- c("01/05/1965", "08/16/1975")
dates <- as.Date(strDates, "%m/%d/%Y")
# convert dates to character data
strDates <- as.character(dates)
--------------------------------------
> as.Date('1915-6-16')
[1] "1915-06-16"
> as.Date('1990/02/17')
[1] "1990-02-17"
> as.Date('1/15/2001',format='%m/%d/%Y')
[1] "2001-01-15"
> as.Date('April 26, 2001',format='%B %d, %Y')
[1] "2001-04-26"
> as.Date('22JUN01',format='%d%b%y')  # %y is system-specific; use with caution
[1] "2001-06-22"
> bdays = c(tukey=as.Date('1915-06-16'),fisher=as.Date('1890-02-17'),
+          cramer=as.Date('1893-09-25'), kendall=as.Date('1907-09-06'))

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。