R中的修改日期[关闭]

Question

我正在处理数据中包含大量日期列的数据处理管道。许多 R 函数（例如，设置操作、sapply 等）不保留日期类，将日期转换为整数。

我认为解决此问题的策略是：

1. 确保数据处理管道中的每个函数都接受并返回格式化为日期的日期。缺点：找出所有可以粘贴as.Date() 的地方通常很乏味。
2. 在所有修改步骤中将日期作为整数生活，仅在最后将它们转换为日期。这样做的缺点是，如果不先转换为日期，则无法在中间修改步骤中进行日期操作（例如，使用 by = "month" 进行排序）。

我还缺少其他选项吗？有没有办法让 R 和日期玩得很好？澄清一下，我正在处理的数据不仅仅是一个时间序列：多个列包含日期。所以，据我所知，xts 的用处有限。

Answer 1

不保留Date 类错误特征是 R 本身的人工制品，以及一些基本的 R 函数是如何实现的。参见例如

R> dates <- Sys.Date() + 0:2
R> for (d in dates) cat(d, "\n")
17532 
17533 
17534 
R> 

基本上，当您执行某些向量操作时，S3 类属性会被丢弃：

R> as.vector(dates)
[1] 17532 17533 17534
R> 

所以我的建议是选择一个你喜欢的好的容器类型并坚持使用它来进行操作。我喜欢data.table 很多。一个简单的例子：

R> suppressMessages(library(data.table))
R> dt <- data.table(date=Sys.Date()+0:2, other=Sys.Date() + cumsum(runif(3)*100))
R> dt[, diff:=other-date][]
         date      other           diff
1: 2018-01-01 2018-03-30  88.88445 days
2: 2018-01-02 2018-06-09 158.23913 days
3: 2018-01-03 2018-07-30 208.62187 days
R> dt[, month:=month(other)][]
         date      other           diff month
1: 2018-01-01 2018-03-30  88.88445 days     3
2: 2018-01-02 2018-06-09 158.23913 days     6
3: 2018-01-03 2018-07-30 208.62187 days     7
R> 

不仅Date 类型持续存在（正如返回difftime 对象的差异操作所证明的那样），而且您还可以获得很多帮助 函数（如month()）在这里。按日期分组也是很自然的。

Answer 2

用一个你想要的函数替换对sapply 的调用可能并不难。例如，

sapply2 <- function(X, FUN, ...) {
  do.call(c, lapply(X, FUN, ...))
}

这不像原来的sapply 那样通用，但如果您在sapply(X, FUN) 中使用的函数返回日期，它将保留它们。如果你想使用sapply 的可选参数，你需要更详细的东西。

我不知道您的“等”中有多少其他功能，但我猜应该不是很多，而且大多数修复都不是那么难。