如class（date）为character可用substr()提取前四个字符即年 以date中第一个元素为例：substr(date,1,4) 得年份2004 substr(date,6,7) 得月份01 substr(date,9,10)得日期02;
若class（date）为Date则可用format（date，"%Y"）提取四位数年（"%y"小写y只提取两位数年）;
可用as.Date(as.numeric(date))把date转为Date格式 或用lubridate中的date<-ymd(date)转为POSIXct格式后用format（）;
一般可先把日期数据转成character处理后用再as.Date()或用lubridate包中的ymd()将其转成合适的格式;
参考网址：
[url=http://www.stat.berkeley.edu/~s133/dates.html]