带 lapply 和 sapply 的日期

我导入了一个包含大量日期的 CSV 文件，并使用 as.Date 函数来转换日期。但是，当我使用 mapply 函数查找两个日期中较早的一个时，我最终要么得到一个包含日期的列表，要么得到一个数字向量。如何获得带有日期的向量？

POP.Start.final <- mapply(min, combinedOM$Cons.Start.Date.y, 
                               combinedOM$OS.Start.Date.y, 
                                MoreArgs = list(na.rm=T),SIMPLIFY=T)

这返回一个数字向量，更改为 SIMPLIFY=F 返回日期列表，但我想要一个日期向量。

在这个具体案例中，我相信pmin诀窍是：

POP.Start.final <- pmin(combinedOM$Cons.Start.Date.y,
  combinedOM$OS.Start.Date.y,
  na.rm=TRUE)

在一般情况下，SIMPLIFY=TRUE（默认）使用效用函数simplify2array将列表转换为原子模式向量as.vector。因为日期在内部存储为数字，SIMPLIFY=TRUE将日期列表转换为数字模式向量并删除Date班级。您可以设置SIMPLIFY=FALSE保持Date类然后使用do.call with c将列表转换为向量。

POP.Start.final <- do.call(c,mapply(min, combinedOM$Cons.Start.Date.y, 
                               combinedOM$OS.Start.Date.y, 
                                MoreArgs = list(na.rm=TRUE),SIMPLIFY=FALSE))

一些可重现的代码：

a <- as.Date(c("2012-01-11","2012-06-30","2012-04-18"))
b <- as.Date(c("2013-04-21","2012-03-22","2012-05-01"))
pmin(a,b)
#[1] "2012-01-11" "2012-03-22" "2012-04-18"
do.call(c,mapply(min,a,b,MoreArgs=list(na.rm=TRUE),SIMPLIFY=FALSE))
#[1] "2012-01-11" "2012-03-22" "2012-04-18"

顺便说一句，使用T and F for TRUE and FALSE有点令人担忧，因为T and F可以重新分配TRUE and FALSE不能重新分配。