RNote102---时间处理

原创

维格堂406小队 2022-08-04 17:47:55 博主文章分类：★★★R软件 ©著作权

©著作权归作者所有：来自51CTO博客作者维格堂406小队的原创作品，请联系作者获取转载授权，否则将追究法律责任

覆盖常用的时间处理操作，如：

字符串转日期
日期转字符串
生成指定时间间隔的序列数据

生成间隔时序vector

timeRange <- function(starttime, endtime, step="15 mins", inputFormat='%Y%m%d%H%M%S', outputFormat='%Y%m%d%H%M%S'){
  # 转换成POSIXlt格式
  start_slice_p <- strptime(starttime, inputFormat)
  end_slice_p <- strptime(endtime, inputFormat)
  # 生成指定间隔的序列  
  seq_series <- seq.POSIXt(from=start_slice_p,to=end_slice_p,by=step)
  # 再转成指定的字符串形式  
  output_seq <- as.character(seq_series,outputFormat)
  return(output_seq)
}

年、月间隔

年间隔

timeRange(starttime = "2011-01-01 15:00:00", endtime = "2015-01-01 15:00:00", step = "2 years", 
    inputFormat = "%Y-%m-%d %H:%M:%S", outputFormat = "%Y-%m-%d")

'2011-01-01'
'2013-01-01'
'2015-01-01'

月间隔

timeRange(starttime = "2011-05-01 15:00:00", endtime = "2012-01-01 15:00:00", step = "1 months", 
    inputFormat = "%Y-%m-%d %H:%M:%S", outputFormat = "%Y%m")

'201105'
'201106'
'201107'
'201108'
'201109'
'201110'
'201111'
'201112'
'201201'

周、天间隔

周间隔

timeRange(starttime = "2020-04-29", endtime = "2020-05-31", step = "1 weeks", 
    inputFormat = "%Y-%m-%d", outputFormat = "%Y%m%d")

'20200429'
'20200506'
'20200513'
'20200520'
'20200527'

天间隔

timeRange(starttime = "2020-04-29", endtime = "2020-05-05", step = "2 days", 
    inputFormat = "%Y-%m-%d", outputFormat = "%Y%m%d")

'20200429'
'20200501'
'20200503'
'20200505'

时分秒间隔

小时间隔

timeRange(starttime = "2020-04-29 15:15:15", endtime = "2020-04-29 17:40:40", step = "2 hours", 
    inputFormat = "%Y-%m-%d %H:%M:%S", outputFormat = "%Y-%m-%d %H:%M:%S")

'2020-04-29 15:15:15'
'2020-04-29 17:15:15'

分钟间隔

timeRange(starttime = "2020-04-29 15:15:15", endtime = "2020-04-29 16:40:40", step = "20 mins", 
    inputFormat = "%Y-%m-%d %H:%M:%S", outputFormat = "%Y-%m-%d %H:%M:%S")

'2020-04-29 15:15:15'
'2020-04-29 15:35:15'
'2020-04-29 15:55:15'
'2020-04-29 16:15:15'
'2020-04-29 16:35:15'

秒间隔

timeRange(starttime = "2020-04-29 15:15:15", endtime = "2020-04-29 15:40:40", step = "60 secs", 
    inputFormat = "%Y-%m-%d %H:%M:%S", outputFormat = "%Y-%m-%d %H:%M:%S")