慢速字符串到日期转换函数

Question

我编写了以下函数来将字符串向量转换为日期向量（for 循环内的代码受到这篇文章的启发：R help converting factor to date）。当我传入一个大小为 1000 的向量时，这大约需要 30 秒。不是很慢，但我最终需要传递大约 100,000，所以这可能是一个问题。任何想法为什么这很慢和/或如何加快速度？

toDate <- function (dates) 
{
    theDates <- vector()
    for(i in 1:length(dates))
    {
        temp <- factor(dates[i])
        temp <- as.Date(temp, format = "%m/%d/%Y")
        theDates[i] <- temp
    }
 class(theDates) <- "Date"
 return(theDates)
}

Answer 1

只要做：

as.Date(dates, format = "%m/%d/%Y")

1. 您不需要循环遍历dates 向量，因为as.Date() 可以一次性处理字符向量。您的函数会引发对 as.Date() 的 length(dates) 调用以及对其他函数的一些分配，这些都具有完全不必要的开销。
2. 您不想将每个单独的日期转换为一个因子。您根本不想转换它们（as.Date() 只会将它们转换回字符）。如果您确实想转换它们，factor() 也是矢量化的，所以你可以（但你不需要这个在你的函数中的任何地方）删除factor() 行并在for() 循环之外插入dates <- as.factor(dates) 。但同样，您根本不需要这样做！