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中有一个称为“票证年龄”的栏，用于计算创建和关闭票证的天数差异。如何重新编码，以便将周末从天数差异中排除。

类似于Excel中的NETWORK days功能。

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

尝试计算日期差异（不包括周末）-R-studio

1 个答案: