r - 尝试计算日期的差异，同时排除周末 - R-studio

Question

IT_tickets[,"ticket_age"] <- NA
{R aging_count for Tasks}
IT_tickets$ticket_age[c(all_tasks)] <- difftime(IT_tickets$closed_at_date[c(all_tasks)], IT_tickets$sys_created_date[c(all_tasks)], units = "days")

我的数据集 IT_tickets 中有一个名为“票龄”的列，它计算创建和关闭票证的天数差异。我该如何重新编码，以便将周末排除在天数差异之外。

类似于 NETWORK days 函数在 Excel 中的工作方式。

Answer 1

如果您不必包括假期，您可以这样做

IT_tickets$ticket_age[c(all_tasks)] <- sum(!weekdays(seq(IT_tickets$sys_created_date[c(all_tasks)],
                                                                IT_tickets$closed_at_date[c(all_tasks)], 
                                                                "days")) %in% c("Saturday", "Sunday")) - 1 

如果要将开始日期包括在计数中，可以去掉 1 的减法。

另一种方式：

IT_tickets$ticket_age[c(all_tasks)] <- (IT_tickets$ticket_age[c(all_tasks)]%/%7) * 5 + IT_tickets$ticket_age[c(all_tasks)]%%7