在R语言中创建时间间隔及处理休息时段的技术求助

嘿，我来帮你搞定R语言处理时间间隔的问题！先假设你的数据大概包含开始时间、结束时间、休息开始时间、休息结束时间这几个核心字段（如果你的数据结构有差异，随时告诉我调整），下面用具体代码一步步实现你的三个需求：

第一步：先模拟你的数据（用lubridate包简化时间处理） #

先加载lubridate包（如果没装的话先跑install.packages("lubridate")），然后模拟一份接近你场景的数据：

library(lubridate)

# 模拟数据：每行代表一天的工作记录
work_records <- data.frame(
  start_time = ymd_hms(c("2024-05-20 09:00:00", "2024-05-21 08:30:00", "2024-05-22 10:00:00")),
  end_time = ymd_hms(c("2024-05-20 17:00:00", "2024-05-21 18:00:00", "2024-05-22 16:30:00")),
  break_start = ymd_hms(c("2024-05-20 12:00:00", "2024-05-21 12:30:00", "2024-05-22 13:15:00")),
  break_end = ymd_hms(c("2024-05-20 13:00:00", "2024-05-21 13:15:00", "2024-05-22 13:45:00"))
)

需求1：计算开始时间与结束时间的小时间隔并生成列表 #

用difftime函数计算时间差，指定单位为小时，转成数值后再转成列表：

# 计算总时长（小时）
work_records$total_hours <- as.numeric(difftime(work_records$end_time, work_records$start_time, units = "hours"))

# 转成列表格式
total_interval_list <- as.list(work_records$total_hours)

# 查看结果
print(total_interval_list)
# 输出：[[1]] 8, [[2]] 9.5, [[3]] 6.5

需求2：计算开始时间与休息时间的小时间隔 #

这里我默认你要的是从工作开始到休息开始的间隔时长，如果是其他场景（比如休息结束到工作结束的间隔），改下时间参数就行：

# 计算开始到休息开始的小时数
work_records$start_to_break_hours <- as.numeric(difftime(work_records$break_start, work_records$start_time, units = "hours"))

# 转成列表
start_to_break_list <- as.list(work_records$start_to_break_hours)

# 查看结果
print(start_to_break_list)
# 输出：[[1]] 3, [[2]] 4, [[3]] 3.25

如果需要计算休息时段本身的时长，可以用这段代码：

work_records$break_duration_hours <- as.numeric(difftime(work_records$break_end, work_records$break_start, units = "hours"))
break_duration_list <- as.list(work_records$break_duration_hours)
print(break_duration_list)
# 输出：[[1]] 1, [[2]] 0.75, [[3]] 0.5

需求3：剔除休息时段计算总工作时长 #

直接用总时长减去休息时长，就能得到实际工作的时长：

# 计算剔除休息后的实际工作时长
work_records$actual_working_hours <- work_records$total_hours - work_records$break_duration_hours

# 生成输出（可以打印成表格，或者保存为csv）
cat("=== 剔除休息后的实际工作时长 ===\n")
print(work_records[, c("start_time", "end_time", "actual_working_hours")])

# 如果要保存到文件：
# write.csv(work_records, "working_duration.csv", row.names = FALSE)

运行后会输出类似这样的结果：

=== 剔除休息后的实际工作时长 ===
           start_time             end_time actual_working_hours
1 2024-05-20 09:00:00 2024-05-20 17:00:00                  7.0
2 2024-05-21 08:30:00 2024-05-21 18:00:00                  8.75
3 2024-05-22 10:00:00 2024-05-22 16:30:00                  6.0

如果你的数据结构和我模拟的不一样（比如有多个休息时段、休息时间是单个标记等），随时告诉我细节，我再调整代码！

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