如何在R中删除不属于08:00-18:00时间段的时间戳对应数据

操作方式选择 #

不需要拆分出单独的日期、时间列，直接对timestamp列操作更便捷，同时更适合你的大规模分钟级数据集，拆分额外列会增加不必要的内存占用与计算开销。

核心处理逻辑是直接从日期时间格式的timestamp列中提取时分秒部分，和目标区间对比即可，无需拆分日期信息。

具体实现代码 #

前置处理：确保timestamp列为日期时间格式 #

首先将字符类型的timestamp转为R识别的日期时间格式：

# base R写法
df$timestamp <- as.POSIXct(df$timestamp, format = "%Y-%m-%d %H:%M:%S")

方法1：base R实现（无额外依赖） #

df_filtered <- df[
  format(df$timestamp, "%H:%M:%S") >= "08:00:00" & 
  format(df$timestamp, "%H:%M:%S") <= "18:00:00",
]

方法2：tidyverse+lubridate实现（语法更简洁） #

library(tidyverse)
library(lubridate)

df_filtered <- df %>%
  mutate(timestamp = ymd_hms(timestamp)) %>%
  # 按小时粗过滤，适合不需要精确到秒的场景
  filter(hour(timestamp) >= 8 & hour(timestamp) < 18)

# 若需要严格匹配08:00:00到18:00:00的秒级边界，替换过滤逻辑为：
# filter(format(timestamp, "%T") >= "08:00:00" & format(timestamp, "%T") <= "18:00:00")

以上两种方法针对你的800万行左右的分钟级数据集都可以在秒级完成运算，测试示例数据时会仅保留2001-02-03 10:10:00对应的行，符合预期。

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