1.获取当前日期
> Sys.Date()
[1] "2018-06-06"
> Sys.Date()-6 #获取往前第6天的日期
[1] "2018-05-31"
2.格式化日期
> day<-Sys.Date()
> day
[1] "2018-06-06"
> new<-format(day,format="%Y%m%d")
> new
[1] "20180606"
> mode(new)
[1] "character"
3.替换函数
> day<-Sys.Date()
> day
[1] "2018-06-06"
> newday<-gsub("-","",day)
> newday
[1] "20180606"
4.将数据框多列文本数字转换为数值数字
data[,m:n]<-lapply(data[,m:n],as.numeric) #m、n均指列数
5.文本转换为日期函数
> d<-c("2018-06-01","2018-06-02")
> mode(d)
[1] "character"
> d1<-as.Date(d,"%Y-%m-%d")
> d1
[1] "2018-06-01" "2018-06-02"
> mode(d1)
[1] "numeric"