如何解决如何在Excel或R中计算两个日期之间的处理时间或响应时间?
我在一家作为医生预约平台的公司工作。我们通常处理预订。预订适用于多个诊所。对于每个预订,我们都有创建它的时间和处理它的时间。我想计算响应时间。处理和创建之间应该有区别,但要在诊所时间内。
例如,预订于2020年8月7日(星期五)上午11点进行,并于2020年8月10日(星期一)下午5点进行处理,诊所时间内的响应时间应为88,200秒或24.5小时。我已经附上了诊所的工作时间。我必须针对数百家拥有自己时间表的诊所进行此操作。非常感谢您的帮助。
Clinic_name <- c("ABC","ABC","ABC")
DOW <- c(1:7)
day <- c("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")
Starting_Time_1 <- c("8:30:00","8:30:00",NA,"8:30:00")
Ending_Time_1 <- c("12:00:00","12:00:00","12:00:00")
Starting_Time_2 <- c("16:30:00","16:30:00","16:30:00")
Ending_Time_2 <- c("21:00:00","21:00:00","21:00:00")
abc_timing <- cbind(Clinic_name,DOW,day,Starting_Time_1,Ending_Time_1,Starting_Time_2,Ending_Time_2)
abc_timing <- data.frame(abc_timing)
解决方法
library(tidyverse)
library(lubridate)
df = tibble(
booking = c("7th Aug 2020(Friday) at 11 am","8th Aug 2020(Friday) at 13 am"),handled = c("10th Aug 2020(Monday) at 5 PM","9th Aug 2020(Friday) at 06 am")
) %>%
mutate(booking = dmy_h(booking),handled = dmy_h(handled))
df %>%
mutate(gap = (handled - booking) / dhours(1))
# # A tibble: 2 x 3
# booking handled gap
# <dttm> <dttm> <dbl>
# 1 2020-08-07 11:00:00 2020-08-10 05:00:00 66
# 2 2020-08-08 13:00:00 2020-08-09 06:00:00 17
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。