在R语言中将时分格式时间转换为上午/下午/傍晚/夜间分类变量

嘿，这个需求很明确，我给你两种实用的实现方式，你可以根据自己的代码环境选择：

方法一：用dplyr的case_when（逻辑直观，易调整） #

这种方式用条件判断语句，规则写得清清楚楚，后续要修改时段范围也很方便：

# 你的原始时间向量
time <- c("15:03", "08:01", "11:59", "23:47", "14:20", "17:30", "04:15", "11:00")

# 先转成时间格式（strptime返回POSIXlt对象）
time_obj <- strptime(time, format = "%H:%M")

# 加载dplyr包（如果没安装先运行install.packages("dplyr")）
library(dplyr)

# 生成时段分类变量
time_category <- case_when(
  # 5点（含）到11点（不含） → 上午
  hour(time_obj) >= 5 & hour(time_obj) < 11 ~ "上午",
  # 11点（含）到16点（不含） → 下午
  hour(time_obj) >= 11 & hour(time_obj) < 16 ~ "下午",
  # 16点（含）到19点（不含） → 傍晚
  hour(time_obj) >= 16 & hour(time_obj) < 19 ~ "傍晚",
  # 其余所有情况（19点及以后到次日5点前） → 夜间
  TRUE ~ "夜间"
)

# 查看结果
data.frame(原时间 = time, 时段分类 = time_category)

运行后会得到这样的结果：

原时间 时段分类
1 15:03     下午
2 08:01     上午
3 11:59     下午
4 23:47     夜间
5 14:20     下午
6 17:30     傍晚
7 04:15     夜间
8 11:00     下午

方法二：用base R的cut函数（无需额外包，快速分箱） #

如果不想加载dplyr，用base R的cut函数也能搞定，核心是设置好分箱的断点和对应标签：

# 你的原始时间向量
time <- c("15:03", "08:01", "11:59", "23:47", "14:20", "17:30", "04:15", "11:00")

# 提取小时部分（从POSIXlt对象中直接取hour字段）
hour_vec <- as.POSIXlt(time, format = "%H:%M")$hour

# 用cut分箱生成分类
time_category_base <- cut(
  hour_vec,
  breaks = c(-Inf, 5, 11, 16, 19, Inf),  # 断点：<5, 5-11, 11-16, 16-19, >19
  labels = c("夜间", "上午", "下午", "傍晚", "夜间"),  # 对应断点的标签
  include.lowest = TRUE  # 让等于最小值的元素（比如5点）被包含在第一个非-inf区间里
)

# 查看结果
data.frame(原时间 = time, 时段分类 = time_category_base)

这个方法得到的结果和上面完全一致，适合喜欢用base R的场景。

注意点 #

• 两种方法都严格遵循了你的规则：比如11:00属于下午，11:59也属于下午，16:00属于傍晚，凌晨4点属于夜间，19:00及以后都是夜间。
• 如果你的时间向量是POSIXct格式，同样可以用hour()函数提取小时，逻辑完全一样。

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