R语言经常使用函数

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"

6.文本截取函数

> a<-"2018-06-05"
> b<-substr(a,start=6,stop=10)
> b
[1] "06-05"