この質問は、 Count days per yearのフォローアップです。
私は巨大なdata.frameでDirkが提案したことをしました。私のコマンドは次のようになります。
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 の RAM と 2 GB のスワップ領域をいっぱいにします。その間、私のプロセッサはおそらく 15% のプロセッサ負荷で退屈しています。
その上、私のコンピューターが私の「欲求」を満たすには何年もかかります。作業の一部を CPU に移して、RAM の負担を少し軽減できますか?