如何在R中以首行时间为基准按N分钟间隔筛选POSIXct日期时间？

步骤1：准备示例数据 #

先将你的示例数据转换成R的POSIXct格式数据框：

# 构建示例数据集
order_dates <- as.POSIXct(c(
  "2022-08-14 12:15:10", "2022-08-14 12:15:11", "2022-08-14 12:15:13",
  "2022-08-14 12:20:10", "2022-08-14 12:20:16", "2022-08-14 12:20:14",
  "2022-08-14 12:25:19", "2022-08-14 12:25:12", "2022-08-14 12:25:20",
  "2022-08-14 12:30:23", "2022-08-14 12:30:31", "2022-08-14 12:30:34",
  "2022-08-14 12:40:32", "2022-08-14 12:40:52", "2022-08-14 12:40:51",
  "2022-08-14 12:45:40", "2022-08-14 12:45:45", "2022-08-14 12:45:23"
))
df <- data.frame(order_dates)

步骤2：截断秒数，保留到分钟级别 #

方法一：使用lubridate包（推荐） #

借助lubridate的floor_date函数快速去除秒数：

library(lubridate)

# 将时间截断到分钟维度，自动去除秒数
df$truncated_date <- floor_date(df$order_dates, unit = "minute")

方法二：基础R实现 #

通过字符串格式化后转回POSIXct类型：

# 格式化时间字符串并转回POSIXct，时区需与原数据保持一致
df$truncated_date <- as.POSIXct(strftime(df$order_dates, "%Y-%m-%d %H:%M"), 
                                tz = attr(df$order_dates, "tzone"))

步骤3：筛选15分钟间隔的数据 #

以首行的截断后时间为基准，计算每行与基准时间的分钟差，筛选出差值为15整数倍的行：

# 获取基准时间（首行的截断后时间）
base_time <- df$truncated_date[1]

# 计算每行与基准时间的分钟差，判断是否为15的倍数
df$minute_diff <- as.numeric(difftime(df$truncated_date, base_time, units = "mins"))
df_filtered <- df[df$minute_diff %% 15 == 0, ]

# 替换原日期列为无秒数的时间（按需选择保留列）
df_filtered$order_dates <- df_filtered$truncated_date
df_filtered <- df_filtered[, "order_dates", drop = FALSE]

最终结果 #

运行后得到的df_filtered即为目标数据集，仅保留基准时间、基准+15分钟、基准+30分钟等间隔的行，且时间不含秒数：

> df_filtered
           order_dates
1  2022-08-14 12:15:00
2  2022-08-14 12:15:00
3  2022-08-14 12:15:00
10 2022-08-14 12:30:00
11 2022-08-14 12:30:00
12 2022-08-14 12:30:00
16 2022-08-14 12:45:00
17 2022-08-14 12:45:00
18 2022-08-14 12:45:00

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