试图计算日期的差异，同时排除周末-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