在R语言中基于班次结束时间分类时如何指定时间区间约束？

我来帮你搞定这个按结束时间给班次分类的问题～先看看你代码里的几个关键问题，再给你靠谱的解决方案：

你遇到的核心问题 #

1. 时间格式不合法：直接写10:00:00这种形式R根本识别不了，必须把时间字符串转换成R能识别的时间类型（比如POSIXct）才能做比较
2. 跨天区间处理不当：你提到的18:00:00到02:00:00是跨天的区间，不能直接用>和<连起来判断，得用逻辑或（|）来处理
3. 循环效率低：R是向量型语言，用for循环逐个处理行不仅麻烦，大数据量下还很慢，优先用向量化操作

正确的解决方案步骤 #

第一步：确保结束时间是时间类型

先检查你的ENDTIME列是不是POSIXct类型，如果是字符串的话，先转换成时间类型：

# 假设你的ENDTIME是"HH:MM:SS"格式的字符串
SHIFTS2$ENDTIME <- as.POSIXct(SHIFTS2$ENDTIME, format = "%H:%M:%S")

第二步：用向量化操作分类（推荐两种方式）

方式1：用dplyr的case_when（代码更清晰）

如果装了dplyr包，用这个函数处理多条件分类特别直观：

library(dplyr)

SHIFTS2 <- SHIFTS2 %>%
  mutate(ENDCAT = case_when(
    # 10:00到18:00之间，分类为1
    ENDTIME > as.POSIXct("10:00:00", format = "%H:%M:%S") & 
    ENDTIME <= as.POSIXct("18:00:00", format = "%H:%M:%S") ~ 1,
    # 18:00到次日02:00，分类为2（这里用|处理跨天）
    ENDTIME > as.POSIXct("18:00:00", format = "%H:%M:%S") | 
    ENDTIME <= as.POSIXct("02:00:00", format = "%H:%M:%S") ~ 2,
    # 剩下的时间区间（比如02:00到10:00），分类为3
    TRUE ~ 3
  ))

方式2：基础R的ifelse嵌套

如果不想用额外的包，用基础R的ifelse也能实现：

# 先定义时间阈值
time_10 <- as.POSIXct("10:00:00", format = "%H:%M:%S")
time_18 <- as.POSIXct("18:00:00", format = "%H:%M:%S")
time_02 <- as.POSIXct("02:00:00", format = "%H:%M:%S")

SHIFTS2$ENDCAT <- ifelse(
  SHIFTS2$ENDTIME > time_10 & SHIFTS2$ENDTIME <= time_18,
  1,
  ifelse(
    SHIFTS2$ENDTIME > time_18 | SHIFTS2$ENDTIME <= time_02,
    2,
    3
  )
)

额外提醒 #

• 如果你的ENDTIME包含日期（比如2024-05-20 19:30:00），那format参数要改成对应的格式，比如"%Y-%m-%d %H:%M:%S"
• 测试的时候可以先取几行数据验证条件是否正确，避免整列出错

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