如何创建多时间间隔的Time Series并保证序列连续性？

要实现分时段不同间隔的时间序列，同时保证序列完全连续（哪怕间隔是非5的倍数，比如16、21分钟），可以通过分段定义时间区间与对应间隔，逐个生成后合并的方式解决，具体实现如下：

单次周期实现（以2023-01-01为例） #

# 设定基准日期
base_date <- as.POSIXct("2023-01-01", tz = "UTC")

# 定义各时段规则：起始时间、结束时间、时间间隔
time_segments <- list(
  # 6:00-9:00，30分钟间隔
  list(start = base_date + lubridate::hours(6), 
       end = base_date + lubridate::hours(9), 
       interval = "30 min"),
  # 9:00至次日3:00，45分钟间隔
  list(start = base_date + lubridate::hours(9), 
       end = base_date + lubridate::days(1) + lubridate::hours(3), 
       interval = "45 min")
)

# 生成各时段序列并合并
ts_collection <- lapply(time_segments, function(seg) {
  seq(from = seg$start, to = seg$end, by = seg$interval)
})
final_time_series <- do.call(c, ts_collection)

# 查看结果
head(final_time_series, 10)
tail(final_time_series, 10)

关键细节说明 #

1. 无缝衔接保证：每个时段的起始时间直接沿用前一个时段的结束时间，完全避免拼接时的重复或断层问题——哪怕间隔是16、21这类非规则数值，也能精准衔接。
2. 依赖包说明：示例中用了lubridate包的hours()和days()函数来简化时间计算，若未安装可先执行install.packages("lubridate")。

扩展到多日循环 #

如果需要按天重复该时段规则（比如生成一周的序列），可以在外层套日期循环：

# 生成2023-01-01至2023-01-07的多日序列
date_sequence <- seq(as.POSIXct("2023-01-01", tz = "UTC"), 
                     as.POSIXct("2023-01-07", tz = "UTC"), 
                     by = "day")

multi_day_ts <- lapply(date_sequence, function(current_date) {
  segments <- list(
    list(start = current_date + lubridate::hours(6), 
         end = current_date + lubridate::hours(9), 
         interval = "30 min"),
    list(start = current_date + lubridate::hours(9), 
         end = current_date + lubridate::days(1) + lubridate::hours(3), 
         interval = "45 min")
  )
  do.call(c, lapply(segments, function(s) seq(s$start, s$end, by = s$interval)))
})

final_multi_day_ts <- do.call(c, multi_day_ts)

验证连续性 #

可以通过计算相邻时间点的差值，确认序列无断层：

diff(final_time_series)

输出的时间差会严格匹配各时段设定的间隔，不会出现衔接错误。

内容的提问来源于stack exchange，提问作者vp_050