通过某些函数向日期添加随机天数答案

【问题标题】：Adding a random number of days to dates via some function通过某些函数向日期添加随机天数
【发布时间】：2017-01-26 01:32:57
【问题描述】：

我的数据包含一列订单日期。它还有一列交货日期。一些交货日期是在订单日期之前发生的日期（12/31/1990），这导致计算平均运输时间时出现问题。我想获取这些行的订单日期，并从均匀分布中添加随机天数。

首先，我尝试编写一个可以应用于数据的函数，但结果不是我想要的。我想要的是模拟的交货日期最终出现在交货日期列中。

func1 = function(x){
  if(x[2]=="1990-12-31" && !is.na(x[2]))
  x[2] = as.Date(x[1]) + floor(runif(1,min=0,max=30))
return (x)
}

示例数据：

x <- structure(list(orderDate = structure(c(15706, 15706, 15706, 15706, 
15706), class = "Date"), deliveryDate = structure(c(15707, 15707, 
7669, 15707, 7669), class = "Date")), .Names = c("orderDate", 
"deliveryDate"), row.names = c(NA, 5L), class = "data.frame")

#   orderDate deliveryDate
#1 2013-01-01   2013-01-02
#2 2013-01-01   2013-01-02
#3 2013-01-01   1990-12-31
#4 2013-01-01   2013-01-02
#5 2013-01-01   1990-12-31

【问题讨论】：

标签： r date

【解决方案1】：

如果我没记错的话，x 是一个有 2 列的数据框。一个矢量化的if 实现可以通过ifelse 实现：

x[[2]] <- structure(ifelse(x[[2]] == "1990-12-31" & !is.na(x[[2]]),
                           as.Date(x[[1]]) + sample(0:30, 1),
                           x[[2]]),
                    class = "Date")

或者更快的替换：

ind <- x[[2]] == "1990-12-31" & !is.na(x[[2]])
x[ind, 2] <- as.Date(x[ind, 1]) + sample(0:30, sum(ind), replace = TRUE)

使用您的示例数据集和相同的随机种子 0，两个选项给出相同的结果：

#   orderDate deliveryDate
#1 2013-01-01   2013-01-02
#2 2013-01-01   2013-01-02
#3 2013-01-01   2013-01-28
#4 2013-01-01   2013-01-02
#5 2013-01-01   2013-01-28

在第一种情况下，ifelse 单独返回整数（“日期”的内部表示），因此我们需要给它“日期”类以使其成为“日期”。

【讨论】：