如何计算数据框中两列POSIXct日期的工作日天数？

嘿，这个问题我太熟悉啦！在R里计算两列POSIXct日期之间的工作日天数，有几种实用的方法，我给你一步步拆解清楚：

这个包就是专门为工作日计算量身打造的，支持自定义节假日、工作日规则，用起来特别顺手。

• 第一步：先安装并加载包

install.packages("bizdays")
library(bizdays)

• 第二步：定义你的工作日日历
  默认我们可以只排除周六周日，要是需要加节假日也能自定义：

# 示例1：仅排除周六周日的基础日历
my_calendar <- create.calendar(
  name = "WeekendOnly",
  weekdays = c("Saturday", "Sunday"),
  holidays = NULL  # 要是有节假日，这里放日期向量就行，比如as.Date(c("2024-01-01", "2024-12-25"))
)

# 示例2：用内置的某国节假日日历（比如美国NYSE的规则）
# my_calendar <- get_calendar("UnitedStates/NYSE")

• 第三步：批量计算工作日天数
  假设你的数据框叫df，两列POSIXct日期是start_dt和end_dt，直接用bizdays()函数就能搞定：

# POSIXct类型会自动转成Date类型处理，完全不影响结果
df$workday_diff <- bizdays(df$start_dt, df$end_dt, cal = my_calendar)

要是你不想折腾新包，用lubridate配合基础R也能实现，核心就是把两个日期之间的所有日期列出来，筛掉周末再计数：

• 第一步：加载lubridate（没装的话先安装）

install.packages("lubridate")
library(lubridate)

• 第二步：写个小函数计算单组日期的工作日数

count_workdays <- function(start, end) {
  # 生成两个日期之间的所有日期序列
  date_seq <- seq(as.Date(start), as.Date(end), by = "day")
  # 筛掉周六周日，然后数剩下的天数
  sum(!wday(date_seq, label = TRUE) %in% c("Sat", "Sun"))
}

• 第三步：批量应用到数据框
  可以用mapply或者dplyr来批量处理每一行：

# 方法A：用mapply
df$workday_diff <- mapply(count_workdays, df$start_dt, df$end_dt)

# 方法B：用dplyr更简洁（需要加载dplyr）
library(dplyr)
df <- df %>%
  rowwise() %>%
  mutate(workday_diff = count_workdays(start_dt, end_dt)) %>%
  ungroup()

• POSIXct类型带时间没关系，计算时会自动提取日期部分，不影响结果。
• 要是需要处理节假日，bizdays的自定义日历比基础方法省心太多，尤其是节假日列表很长的时候。
• 记得检查日期顺序哦，如果结束日期比开始日期早，结果会是负数，加个abs()就能取绝对值啦。

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