0

现在我有一个新问题。我需要计算两个日期之间的时间跨度。我的问题是:必须排除周末,时间跨度可以是负数或正数。例如:

Planed delivery Real delivery  
2017-11-28     2018-11-17  
2016-05-10     2016-09-22 
2016-06-08     2016-11-07   
2016-07-08     2016-06-07

等等。我有以下代码可以做到这一点:

getDuration <- function(date_scheduled, date_received,fmt="%Y-%m-%d") {
    myDays <- ifelse(date_received > date_scheduled,
                    seq.Date(to   = as.Date(date_received, format=fmt), 
                       from = as.Date(date_scheduled, format =fmt), 
                       by   = 1),
                     seq.Date(to   = as.Date(date_scheduled, format=fmt), 
                        from = as.Date(date_received, format =fmt), 
                        by   = 1))
     length(myDays[!is.weekend(myDays)])
}

当我使用命令时:

getDataPart(prep_DPM_All_new$Goods_received_date, prep_DPM_All_new$Schedule_Line_Delivery)

我收到以下错误:

Error in seq.Date(to = as.Date(date_received, format = fmt), from = as.Date(date_scheduled,  :'from' must be of length 1 

起初我认为日期列的格式不正确,但我认为它看起来不错。

str(prep_DPM_All_new$Goods_received_date)
 POSIXct[1:33078], format: "2016-03-24"  
str(prep_DPM_All_new$Schedule_Line_Delivery)
 POSIXct[1:33078], format: "2016-03-29"

谁能帮我解释一下,为什么我会收到错误消息?如果没有 if else 语句,我得到了错误,即“错误的登录方式”。

输出应该是这样的:

Row 1: 254  
Row 2: 109   
Row 3:  98   
Row 4: -24  

我试图通过对类似问题使用一些解决方案来解决问题,但这些问题只有正值。我认为负值是主要问题。

4

1 回答 1

0

seq.Date()这里有点棘手,原因有两个:

  1. 该函数不是向量化的,即只允许单值参数。
  2. 、和参数必须对应from,即如果低于then必须为负。tobytofromby

这是一个解决方案,它按行号分组以克服问题 1。并使用sign()andrange()函数来克服问题 2。此外,chron使用了 OP 从中获取is.weekend()功能的包。

library(data.table)
library(chron)
# coerce to data.table and chron
DF <- setDT(DF)[, lapply(.SD, chron, format = "y-m-d")]
DF[, rn := .I][, {
  s <- sign(Actual_delivery - Planned_delivery)
  r <- range(Actual_delivery, Planned_delivery)
  .(diff.working.days = s * sum(!is.weekend(seq(r[1], r[2]))))
}, by = rn]
   rn diff.working.days
1:  1               254
2:  2                98
3:  3               109
4:  4               -24

数据

library(data.table)
DF <- fread(
  "Planned_delivery Actual_delivery  
2017-11-28     2018-11-17  
2016-05-10     2016-09-22 
2016-06-08     2016-11-07   
2016-07-08     2016-06-07"
)
于 2018-02-23T17:03:28.067 回答