r - 使这个过程更加处理器密集和更少的内存密集

Question

这个问题是Count days per year的后续问题。

我按照 Dirk 的建议做了一个巨大的 data.frame。我的命令如下所示：

dateSeq <- function(df) {
  res <- seq(as.Date(df["begin"]), as.Date(df["end"]), by = "1 day")
  format(res, "%Y")
}

dataFrame$seq <- apply(dataFrame, 1, dateSeq)
dataFrame_years <- do.call("c", dataFrame[["seq"]])

rm(dataFrame)
gc()
gc()

dataFrame_tab <- table(dataFrame_years)

现在，这些命令填满了我的 8 GB 内存和 2 GB 交换空间。与此同时，我的处理器很无聊，处理器负载可能只有 15%。

此外，我的电脑需要很长时间才能满足我的“愿望”。我可以将一些工作转移到 CPU 上并减轻我的 Ram 的负担吗？

Answer 1

实际上，所提到的解决方案是不必要的内存消耗。尝试这个：

begin <- as.POSIXlt("2007-05-20", tz = "GMT")
end <- as.POSIXlt("2010-06-13", tz = "GMT")

year <- seq(begin$year, end$year) + 1900
year.begin <- as.POSIXlt(paste(year, "01", "01", sep="-"), tz="GMT")
year.begin[1] <- begin
year.end <- as.POSIXlt(paste(year, "12", "31", sep="-"), tz="GMT")
year.end[length(year.end)] <- end
days <- as.numeric(year.end - year.begin) + 1
cbind(year, days)