R语言：如何按5分钟间隔拆分跨该间隔的时间周期？

要将跨越5分钟整点（如00:00、00:05、00:10等）的时间周期拆分为不跨这些间隔的子区间，可以用dplyr、lubridate和purrr包组合实现，步骤如下：

1. 准备环境与数据预处理 #

首先加载所需工具包，将原始数据中的字符型时间转换为R可识别的时间格式：

library(dplyr)
library(lubridate)
library(purrr)

# 原始数据
periods_raw <- read.table(header=TRUE, text="
COLOR           UTC_DateTime_Start      UTC_DateTime_End
Green           2022-06-15 14:56:23     2022-06-15 15:03:11
Purple          2022-06-15 15:03:11     2022-06-15 15:14:48
Red             2022-06-15 16:27:11     2022-06-15 16:29:48
")

# 将字符时间转为POSIXct格式，便于时间计算
periods_raw <- periods_raw %>%
  mutate(
    UTC_DateTime_Start = ymd_hms(UTC_DateTime_Start),
    UTC_DateTime_End = ymd_hms(UTC_DateTime_End)
  )

2. 定义拆分函数 #

编写一个函数处理单个时间区间的拆分逻辑，自动生成中间的5分钟断点并拆分：

split_interval <- function(start, end, color) {
  # 生成起始和结束时间之间的所有5分钟整点断点
  breaks <- seq(
    floor_date(start, "5 minutes") + minutes(5),
    ceiling_date(end, "5 minutes") - minutes(5),
    by = "5 minutes"
  )
  # 合并起始点、断点、结束点，生成子区间的起止配对
  all_points <- c(start, breaks, end)
  tibble(
    COLOR = color,
    UTC_DateTime_Start = all_points[-length(all_points)],
    UTC_DateTime_End = all_points[-1]
  ) %>%
    filter(UTC_DateTime_Start < UTC_DateTime_End) # 过滤无效的零长度区间
}

3. 批量拆分并合并结果 #

用pmap_dfr逐行应用拆分函数，最终合并为目标数据框：

periods_split <- periods_raw %>%
  pmap_dfr(~split_interval(start = ..2, end = ..3, color = ..1))

# 将时间格式转回与示例一致的字符格式
periods_split <- periods_split %>%
  mutate(
    UTC_DateTime_Start = format(UTC_DateTime_Start, "%Y-%m-%d %H:%M:%S"),
    UTC_DateTime_End = format(UTC_DateTime_End, "%Y-%m-%d %H:%M:%S")
  )

运行后得到的periods_split就是你需要的拆分结果，验证输出：

print(periods_split)
#        COLOR UTC_DateTime_Start UTC_DateTime_End
# 1      Green  2022-06-15 14:56:23  2022-06-15 15:00:00
# 2      Green  2022-06-15 15:00:00  2022-06-15 15:03:11
# 3     Purple  2022-06-15 15:03:11  2022-06-15 15:05:00
# 4     Purple  2022-06-15 15:05:00  2022-06-15 15:10:00
# 5     Purple  2022-06-15 15:10:00  2022-06-15 15:14:48
# 6       Red  2022-06-15 16:27:11  2022-06-15 16:29:48

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