在R语言difftime计算中排除特定时间范围

我们可以通过拆分时间区间为起始当天有效时长、中间完整天数有效时长、结束当天有效时长三部分，再求和得到最终结果。每天的有效时段为05:00-23:00，单天有效时长固定为18小时。

实现步骤 #

• 加载处理时间和数据的R包
• 定义计算有效时长的自定义函数
• 将函数应用到数据集，生成结果列

代码实现 #

1. 加载必要包

library(tidyverse)
library(lubridate)

2. 定义有效时长计算函数

calculate_valid_hours <- function(start, end) {
  # 处理起始时间晚于结束时间的异常情况
  if (start >= end) return(0)
  
  # 提取起止时间的日期部分（当天00:00）
  start_date <- floor_date(start, "day")
  end_date <- floor_date(end, "day")
  
  # 情况1：起止时间在同一天
  if (start_date == end_date) {
    # 当天的有效时间区间
    day_valid_start <- start_date + hours(5)
    day_valid_end <- start_date + hours(23)
    # 计算实际重叠的有效区间
    overlap_start <- max(start, day_valid_start)
    overlap_end <- min(end, day_valid_end)
    # 返回重叠区间的小时数，无重叠则返回0
    return(ifelse(overlap_start >= overlap_end, 0, as.numeric(difftime(overlap_end, overlap_start, units = "hours"))))
  }
  
  # 情况2：起止时间跨多天
  # 起始当天的有效时长
  start_day_hours <- ifelse(start >= start_date + hours(23), 0, 
                            as.numeric(difftime(min(start_date + hours(23), end), max(start, start_date + hours(5)), units = "hours")))
  
  # 中间完整天数的有效时长（每天18小时）
  full_days_count <- as.numeric(end_date - start_date) - 1
  full_days_hours <- full_days_count * 18
  
  # 结束当天的有效时长
  end_day_hours <- ifelse(end <= end_date + hours(5), 0, 
                          as.numeric(difftime(min(end, end_date + hours(23)), end_date + hours(5), units = "hours")))
  
  # 总有效时长求和
  return(start_day_hours + full_days_hours + end_day_hours)
}

3. 应用函数到数据集

times <- times %>%
  rowwise() %>%
  mutate(valid_hours = calculate_valid_hours(start, end)) %>%
  ungroup()

# 查看结果
print(times)

结果说明 #

运行后数据集会新增valid_hours列，对应每行的有效时长：

• 第一行：起始时间在05:00前，有效时段从05:00到23:44，总时长约18.73小时
• 第二行：跨1天，第一天08:56到23:00（约14.07小时）+ 第二天05:00到11:04（约6.07小时），总时长约20.13小时
• 第三行：跨1天，第一天08:59到23:00（约14.02小时）+ 第二天05:00到13:25（约8.42小时），总时长约22.43小时
• 第四行：跨3天，起始当天17:48到23:00（约5.2小时）+ 3个完整天×18小时，结束时间在05:00前无有效时长，总时长约59.2小时

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